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MODULE 3 ee ES E ‘Print Symbiont -- separation routines’ 


ADDRESSING _MODE VUEXTERNAL = GENERAL) 
BEGIN 


' 
VRE 


folelelelelelelele) 


; 1 0001 0 

; ¢ 0 § 0 

; 00 0 

; 4 0004 0 

; 5 0005 1 

; 6 0006 1 

: 7 0007 1 

3 8 0008 1 

$ & 0009 1! 

;. 0010 1 !* COPYRIGHT (c) 1978, 1980, 1982, 1984 B * 
;. 0011 1 i* DIGITAL EQUIPMENT CORPORATION, MAYNARD. MASSACHUSETTS. * 
; \¢ pore : » ALL RIGHTS RESERVED. + 
; : * 
a 0014 1 !* pat SOF TWARE iS FURNISHED eee A LICENSE AND TIAY BE USED AND copies * 
Bee. 0015 1 !* Y IN ACCORDANCE WITH THE 18 a OF SUCH bsCENSE AND WITH THE * 
; © 0016 1 !* ON NCLUS ye OF THE ABOVE COPYRIGHT OTICE. THIS SOFTWARE OR ANY OTHER * 
3 17 0017 1 !* COPIES THEREOF MAY NOT BE PROV IDED OR OTHERWISE MADE AVAILABLE TO ANY * 
3 18 0018 1 !* QTHER PERSON. NO TITLE TO AND OWNERSHIP OF THE SOFTWARE IS HEREBY * 
: 19 0019 1 !* TRANSFERRED. * 
>. @& 0020 1 !* « 
; 2 0021 1 !* THE INFORMATION IN THIS SOFTWARE IS SUBJECT TO CHANGE WITHOUT NOTICE * 
oe Bo5§ 1 !* AND SHOULD NOT BE CONSTRUED AS A COMMITMENT BY DIGITAL EQUIPMENT * 
: $i b052 : ™ CORPORATION. * 
$ '* ® 
,- 2 0025 1 !* DIGITAL ASSUMES NO RESPONSIBILITY FOR THE USE OR RELIABILITY OF ITS * 
; 26 0026 1 !* SOFTWARE ON EQUIPMENT WHICH IS NOT SUPPLIED BY DIGITAL. * 
. ae 0027 1 !* * 
; ee 0028 1 !* * 
: 29 QO 2D 1S ee eee ee RRR EEEEA REE AEAEEERE RE EEERRREEREREEE 
> a 0030 1! 

3s 3} 0031 #1 

3 32 0032 1 !++ 

: 33 0035 1 ! FACILITY: 

; 634 0034 1! Print Symbiont. 

$ 35 0035 1! 

§ 36 0036 1 | ABSTRACT 

ee 0037 1! File and module input routines. 

; 38 0038 1! 

; 39 0039 1 ! ENVIRONMENT: 

; 640 0040 1! VAX/VMS user mode. 

5; $67 0041 1 !-- 

; 6 CG? 0042 1! 

. ee 0043 1 ! AUTHOR: Rowland R. Bradley 

; & 0044 1! 

s 65 0045 1 ! CREATION DATE: April 1, 1984 

: 46 0046 1! 

.s 67 0047 1 ! MODIFIED BY: 

; «648 0048 1! 

; «649 0049 1! 40-001 RRBOO06 Rowland R. Bradle 14-Aug-1984 

: 50 0050 1! d a <CR> to the page header. This fixes QAR 0682 

; 2 Ope, ; QAR 1737, loss of first Line of data of every page. 

Si Se $088 1! 38-005 RRBOO00S Rowland R. Bradley 02-Aug-1984 

; 54 0054 1! Remove the phrase ‘‘in this file” in (file) record description. 
> oe 0055 1! Remove extra spaces in job description after start date 

: 2 0056 1! and after queued to date. Slightly alter filename algorithm to 
eae 0057 1! avoid placing long filename on a single Line and NOT displaying 


x 
| 
| 
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vOe-001 : 132388 -1 382 95:93:98 PRTSMB.SRC SEPARATE .039;2 ’ (1) 
3 8 0058 1! the type and version (or vice versa). Add a call to . 
: 9 FR 1t PSMSREAD_ITEM_DX in GET_QUALIFIERS to test correctness(this. 
; 60 060 1! is my call and will remain as a test). Modify the file trailer 
; 6) 0061 1! page to avoid an ugly truncation of the input file. Add the 
. ¢ R206 1! acronym “'UIC’’ to the job description sentence. Add /FEED and 
Se 0065 1! /NOFEED to the List of qualifiers in GET_QUALIFIERS. 
; = =64 0064 1! 
; 69 0065 1! 
; 66 0066 1! 38-004 RRBOQO04 _ Rowland R. Bradley 04-May-1984 
; «(Of 0067 1! Avoid truncation of the Job Flag Page when burst pages 
; OB 0068 1! are not specified. 
; @& 0069 1! 
ee 0070 1! 38-003 GRROOOS Gregory R. Robert 29-Apr-1984 
; oO 0071 1! Removed reference to J cS Oyen until job controller 
: 72 pore 1! moasene definitions appear in LIB.L32. Changed ABORTED : 
See 0075 1! and REQUEUED words in job sentence to uppercase for emphasis. 
> Te 0074 1! Considered left and ts margins in computing page header 
ee! 0075 1! size. Create page header only once per task. ix page header 
: 4 Boye : to have file revision date instead of revision number. 
; 2 0078 1! 38-002 RRBOO02 | Rowland R. Bradley. 27-Apr-1984 ae 
: a) 0079 1! Add dynamic Page_Header routine, display all queue qualifiers 
; 680 0080 1! in a single yet fix form feed and Line one problems, print 
; Bl 0081 1! /setup_file & /setup_form, insert job number in burst chars, 
; 682 0082 1! FIX: footer bar, devicename, receipt box, file desc sentence, 
3 83 0083 1! trailer header bar, digital_logo dynamics, /width, 
3 rf bone ; psm$announce display size, fab valid bit, page setup quals. 
; &% 0086 1! 38-001 RRBOOO1 _ Rowland R. Bradley 01-Apr-1984 
cr Or 0087 1! Original version 
; 8 0088 1! 
; 0089 1 !# 


DRE ONE ae a ae ee REET PORE es OIA Nel ts a ae 


<y 
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-00 14- 6 PRTSMB.SRC SEPARA TE.B3 
2 0090 1 LIBRARY Bats tt sdf: LIB"; 
; 0091 1 REQUIRE ‘LIBS:SMBDEF' 
'. 3 0583 1 REQUIRE SREE: SMBREOQ': 
; 1040 1 
: we 1041 1 EXTERNAL ts Ah 
; od 1 PSM 
: 97 10463 1 PSMSREAD. tem. Dx ! strictly to test behavior 
5 1044 1 ; 
. o> Oe 1045 1 
; 100 1046 1 LITERAL 
; 101 1047 1 UPCASE _MASK= %B '0100000', ! Lowercase to ampere pes 
: 19 1968 1 LEAD_MASK = %B '001000', ! delete leading blanks 
; 1049 1 SIZE = 0, 
> 104 1050 1 ADDR = 1 
s 103 1051 1 : 
; 106 1926 1 
3 07 1053 1 OWN 
; 108 1054 1 BURST 
; 109 1055 1 ; 


SEPARATE 
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pepe fof elelelelololololololololololololelololololololelolelolo) 
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FORWARD ROUTINE 

PSMSF ILE_BURST 

PSMSFILE-FLAG 

PSMSFILE- TRAILER 

PSM$JOB_BURST 

PSM$JOB_FLAG 
M$JOB- TRAILER 

PSMSPAGE_HEADER 


RETURN_ FRAME WIDTH 
FILL_JOB_FLAG : NOVALUE, 
FILL_-FILE_FLAG : NOVALUE, 
FILL_JOB_TRAILER OVALUE , 
FILL-FILE_TRAILER NOVALUE , 
GET_FORM SIZE : NOVALUE, 
GET-REVISION DATE : NOVALUE, 
GET-SYSTEM_ANNOUNCEMENT : NOVALUE, 
GET JOB_DESCRIPTION : NOVALUE, 
GET_FILE_DESCRIPTION NOVALUE , 
GET_F ILE NAME OVALUE, 
GET" JOB_RAME NOVALUE, 
GET-EOJ NOVALUE, 
GET" EOF OVALUE, 
GET-ACCOUNTING_INFO NOVALUE, 
GET" QUALIFIE OVALUE, 
GET-QUEUE QUALIFIERS NOVALUE, 
GET"USER_NOTE OVALUE, 
GET_-RECETPT_ BOX NOVALUE , 
GET—VMS_LOG NOVALUE, 
GET_DIGITAL_LOGO NOVALUE , 
GET_RULER_F INE NOVALUE, 
GET" RULER COARSE NOVALUE , 
SCROLL_FR OVALUE, 
FILL_FRAME NOVALUE , 
VE-FRAME NOVALUE , 
INSERT_FRAME NOVALUE, 
CENTER_ FRAME : NOVALUE, 
MERGE E : NOVALUE, 
INSERT_NAME BANNER ° 
INSERT_FILERAME BANNER , 
INSERT JOBNUMBER_BANNER , 
DELIMIT_STRIN ° 
DELIMIT-STRING_NOT s 
FIND_DEST_PTR : NOVALUE, 
FIND-SOURTE_PTR : NOVALUE, 
DISCARD : NOVALUE, 
FILE_OPEN 


H 
16- 
14- 


198 


4 02:23:03 AX-11 Bliss-32 V4.0-74 Pp 4 
4 95:43: 6 PRTSMB.SRCJSEPARATE .832;2 se (3) 


scrolls/fills frame w/ string 
fills a frame with chars 
inserts undelimited strings 
inserts delimited strings 
centers undelimited strings 
merges ‘pure’ frames 

inserts banners into frames 
inserts banners into frames 
inserts banners into frames 
delimits strings 

delimits strings 

identifies ‘‘pure’’ frames 
identifies ‘‘impure’’ frames 
discards chars in strings | 
determines file accessibility 
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BURST = Print a File Burst Page 14-Sep-1984 PRTSMB.SRCJSEPARATE.B32;2 


zs 
fs 
ed 


sbttl 'PSMSFILE_BURST = Print a File Burst Page’ 

Functionai Description: 

his routine controls the creation of the file burst page. The 
pei code dictates the action taken in creation. 


FUNCTIO 
OPEN = Allocate and create the File Burst Page 
READ = Return the current Line of the File Burst Page 
CLOSE = Return the buffer allocated on OPEN 


x 

' 

i 

i 

i 

' 

i 

1 

: Formal Parameters: : 

: SMB_CONTEXT = Pointer to the SMB 
: USER CONTEXT = User defined peroter (not used here) 
FUNCTION - OPEN, READ, CLOSE 

; FUNC_DESC - Pointer to functionally dependent descriptor 
FUNC _ARG - Pointer to functionally dependent argument 

' 

' 

i 

i 

i 

i 

i 

i 

i 


! Implicit Inputs: 
none 


Implicit Outputs: 
none 

Returned Value: 
non 


Side Effects: 


OOOO 00 O00 OOD 00 NI NIN NI NINN NN SIO 


PDE DIDI IN at at rt st st kk kh hk kd hh th ht 
SSESCCS o 
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none 
lee 
GLOBAL ROUTINE PSMSFILE_BURST ( ZSBITL ‘FILE_BURST' 
SMB_ CONTEXT : REF VECTOR, 
USER_CONTEXT : REF VECTOR, 
FUNCTION : REF VECTOR, 
FUNC_DESC : REF VECTOR, 
FUNC_ARG : REF VECTOR 
LOCAL 
$CB : REF S$BBLOCK, 
STATUS 
FORM_WIDTH, 
FORM_LENGTH, 
FORM-SIZE, 
PAGE REF REF PAGE ARRAY, ! Declare the pointer to page 
BUF F VECTOR (512,bytel, ! Assume max size 512 bytes. 
STRING_DESC VECTOR (2); ! Descriptor to current string 


SCB = .SMB_CONTEXT(O); 

! Check the FUNCTION requested 
SELECTONEU -FUNCTIONCOJ OF 
dea READ]: 


$ 
L 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
2 BEGIN 
2 
2 
2 
2 
2 
2 
; 
2 
: PAGE_REF = .SCBCPSMSA_PAGE_POINTER); 


PREXPARE AEA DMs & BB EE BE EE ANNAN NNNWNIAIDIPINPONPIPNND 2 2 SS St OS OS OS 
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voe-001 FILE.BURST i 14-Sep-19 4 93:93:58 LPRTSMB. SRCISEPARATE.03 :2 . 
; 3 1167 !  Qutput one Line at a time 
; 4 1168 IF .SCBCPSM$L_RECORD_NUMBER] GTR (.SCBCPSMSL_PAGE_LENGTH]-6) THEN 
> 225 1189 RETURN PSMS$_EOF; 
; ° 1171 Fae PE SCESI RE = sSCOCP SMS), PAGE WIDTHI; 
; 8 1106 FUNC_DESCCADDRJ = PAGE_REFC BEBLE SASL RECORD_NUMBER], 
; $29 1175 . SCBEPSMSL_PAGE_WIDTHJJ; 
ar +) 1175 : odjuat pointer 
; $36 1176 FUNC_DESCCSIZE] = DELIMIT_STRING_NOT (.FUNC Re sctagen. 
;: = 1177 ZCHARTS2), .FUNC_DESCCSIZEJ); 
; See 1178 
; 235 1179 END; 
; 236 1180 
, gor 1181 ¢ CPSM$K_OPEN): 
; 238 1186 BEGIN 
; ey 118 ; 
; 240 1184 GET_FORM_SIZE (.SCB); ! Returns the WidthxLength 
; 241 1185 3 
; 242 1186 3 
; 243 1187 3 FORM_WIDTH = .SCBCPSMS$L_PAGE_WIDTH); 
; gts 1188 3 FORM_LENGTH = ,SCBCPSM$L—PAGE LENGTH); 
3 $08 Bb a : RETURN_IF _ERROR_(ALLOCATE_PAGE( .SCB)); ! Get the page of memory 
: $e8 1136 ; PAGE_REF = .SCBCPSM$A_PAGE_POINTER]; ! My local page pointer 
; $29 Bb : Allocate the buffer for ‘'GET_xxx'' Routines 
: 252 1196 3 STRING_DESCCSIZE] = ZALLOCATION(BUFFER); ' allocate for routines 
; $27 1302 ; STRING_DESCCADDRJ = BUFFER; ! init address 
3 €0° 1199 3 ! No Form_feed for the burst page 
3; ee 1200 3 
$ €or 1201 3 ! Format the page identically to File Flag 
; 258 1202 3 ! Standard Burst Page 132x66: text covers rows 2 ehrouge 60, 
, aoF 1203 3 : translated to frames... ref starts at 2 and length is 58. 
: 260 1204 3 FILL_FILE_FLAG( 
; 261 1205 3 -SCB, 
; oe 1206 3 PAGE _REFCO,2,.FORM_WIDTH), 
3; 263 1207 3 -FORM_WIDTH, a ie 
; 264 1208 3 -FORM_LENGTH = 6 = 2 ); ! bottom margin is 6 
3; 265 1209 3 ! 2 spaces at the top 
; $06 1619 § END; 
: 267 1211 CPSM$K_CLOSE): ' Return the Page of Memory 
; 268 ete 2 RETURN_IF _ERROR_(DEMLLOCATE_PAGE(.SCB)); 
; 20 1214 $ COTHERWISE): 
: $f 1215 2 RETURN PSM$_FUNNOTSUP; 
; 3 1516 2 
s 2 1217 3 TES; ! case .function 
3: 274 1218 
: $f 1219 § SS$_NORMAL 
: 276 1220 
; 277 1221 1 END; 


K 1 
SEPARATE Print Symbiont -- separation routines 16-S 
y54-001 FILE_B BURST 14-S PRTSMB.SRCJSEPARATE .B32;2 (4). 
senanare I chasse Symbiont -- separation routines 
\V04"001\ : 4 


.PSECT DATA,NOEXE,2 
00000 BURST: .BLKB 4 
.EXTRN BASSEDIT, LBRSCLOSE 
“EXTRN LBR $GET_RECORD, LBRSINI CONTROL 


-EXTRN LBRSLOORUP_KEY, 
EXTRN ett RET_RMSSTV, LBRSSET_LOCATE 


:23:03  YAX=11_Bliss-32 v4.0-74 Page 7 
93:98 é o 

E 

T 


~EXTRN STRSPREFIX.” sPRSRTGHT 

-EXTRN PSM$S_HANGUP DISPATCH ENTRY 
-EXTRN PSM$_BUFFER ROVE $_EOr 
.EXTRN PSM$_ESCAPE Sus F LOSH 

-EXTRN PSM$~ -FonNoT SUP SmOSHS. INVITMCOD 
-EXTRN PSM$_ INVMSOSC sms MODNOTFND 


Pp DIN 
-EXTRN PSMS_ SUSPEND PSM$_TOOMANYLEV 
[EXTRN SMBS-INVSTMNBR, SMB$_INVSTRLEV 
-EXTRN SMB$-N OMOR EITEMS 
~EXTRN PSMSBANNER PSMSREAD_ITEM_DX 


| 
| 
| 
| 
.PSECT CODE, NOWRT,2 | 


o 
o 


oO "OC VTOMOCOCIT09O -9090—-90900 OW 
09999 “M1 Oo fF Owl *WOn - OOmMmna 
SOoooooooooooooooooooooo 
OOCooooooooooooooooooooo 
SOOOSCOCOO COCO OOOOCOOCOOoOoOooo 
MINN E & & PUWAAADINININ  — OOOCCSo 


YINOD OA LE MANINIM OAS MOLMD NNO 


.ENTRY PSMSFILE_BURST, Save R2,R3.R4,R5 
MOVAB -520(SP)> SP 
MOVL a@SMB CONTEXT SCB 

MOVL aFUNCTI rb 

CMPL RO, # 


2 
MOVL 7o5'3t8) a REF 
yy #6, 504( — RO 


50 01F8 
626(S¢B) 


026C 
50 000000006 
1$: MOVL 


50 026C 
04 AS 


0000v CF 


VWVMOYPMVMAUOOPYP DWDOOOOfLVWAIo 
CODWOWIWMNOAYUHYINO 9 *"Ornoen—OOoOom 
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wbeec01 “BURST 1eaee=t 88s 98:93:98 PAN e ek eg 8s Nhe On 28s - 
8 12 00058 BNEQ 3$ : 
DD OO05A PUSHL  5(B + 1184) 
0000v cf 1 FB 005¢ CALLS #1, GET_FORM SIZE ; 
3 9209 C3 DO 00061 MOVL  512(SCBY, FORM_WIDTH > 1187) 
54 O1F C2 DO 00066 MOVL 504(SCB), FORM-LENGTH : 1188. 
52 DD 00068 PUSHL  5S(B : 1190! 
0000v cr 01 FB 90060 CALLS #1, ALLOCATE_PAGE : | 
B 50 €9 0072 BLBC STATUS 68 : 
55 OFC }86 C2 BO 0007 MOVL 08(SCB), PAGE_REF + 1192) 
6E 0200 8F 3C OOO7A MOV2WL #512, STRING DESC + 1196 
04 AE 08 AE 9E 0007F MOVA BUFFER. STRING DESC+4 : 1197 
FB AG OS 00084 PUSHAB -8(FORM LENGTHY : 1208 
53° DD 00087 PUS FORM WIDTH : 1207 
6543 3F 00089 PUSHAW (PAGE_REF)CFORM_WIDTH] : 1206 
52 DD 0008C PUSHL  SCB ; 
0000v CF 046 FB 0008 CALLS #4, FILL_FILE_FLAG ; 
18 11 0009 BRB $ + 1162 
02 50 D1 00095 3$: CMPL RO, #2 : 1211 
0B 12 00098 BNEQ 4$ : 
52 DD 0009A PUSHL  SCB + 1212 
0000v CF 01 FB 0009C CALLS #1, DEALLOCATE_PAGE : 
09 50 €8 OO0A1 BLBS STATUS, 5$ F 
04 OO0A4 RET : 
50 000000006 8F DO OODAS 4$: MOVL § #PSM$_FUNNOTSUP, RO + 1215 
04 OO0AC RET : 
50 01 DO OOOAD 5$: MOVL #1, RO : 1221 
04 000B0 6$: RET ; 
| 
| 


; Routine Size: 177 bytes, Routine Base: CODE + 0000 
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FLAG = Print a File Flag Page PRTSMB.SRCJSEPARATE .B32;2 (5). 


Zsbttl "PSMSFILE_FLAG = Print a File Flag Page’ 
' Functional Description: 
This routine controls the creation of the file flag page. The 

FUNCTION code dictates the action taken in creation. 


FUNCTION: 
OPEN = Allocate and create the file Flee 
READ = Return the current Line of the f 


Page 
le Plag Page 
CLOSE = Return the buffer allocated on OPEN 


BURA RU OS 


Formal Parameters: 
SMB_ CONTEXT 
USER_ CONTEXT 
FUNCTION 
FUNC_DESC 
FUNC_ARG 


INWAWGIrorororororeorory 


WR OOONOUS wiry 


Pointer to the SMB 
User defined paigeer (not used here) 
OPEN, READ, CLOSE : 
Pointer to functionally dependent descriptor 
Pointer to functionally dependent argument | 
Implicit Inputs: 

none 


Implicit Outputs: 
none 


Returned Value: 
non 


Side Effects: 
none 


a 


S 

L 

1 

1 

1 

1 

1 

1 

1 

1 

1 

1 

1 

1 

1 

1 

1 

1 

1 

1 

1 

1 

1 

1 

1 

1 

1 

1 

1 

1 GLOBAL ROUTINE PSMSFILE_FLAG ( XSBTTL 'FILE_FLAG' 
1 SMB_ CONTEXT : REF VECTOR, 

1 USER CONTEXT : REF VECTOR, 

1 FUNCTION : R CTOR 

1 FUNC_DESC : REF VECTOR, 

! FUNC_ARG : REF VECTOR 

r4 
2 
2 
2 
r4 
2 
é 


: REF SBBLOCK, 


. 
° 
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o 
. 
* 
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oa 
. 
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. 
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: VECTOR £312-bytel. 
DESC : VECTO 
: REF PAGE_ARRAY; 


Assume max size 512 bytes. 
Descriptor to current string 
Declare the pointer 

to page | 


SCB = .SMB_CONTEXTCO); 
! Check the FUNCTION requested 
SELECTONEU .FUNCTIONCO) OF 
CPSM$K_READ): 
BEGIN 
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SEPARATE Print Symbiont == separation routines 1e-Se -1984 3: AX-11 Bliss-32 V4.0-7 
vbe-001 FILE.FLXG 14- Sep-196 93:93:58 — EPATsma SReasepanate 
: 1279 ; PAGE_REF = .SCBCPSMSA_PAGE_POINTER); 

; 1280 eat one Line at a time 

3 : } 53 3 IF ( .SCBCPSMSL_RECORD_NUMBER] GTR -SCBEPSM AGE_LENGTHJ) 

; 340 1 He 4 ( NOT .SEPARATE_FLAG (FILE BURST) AND 

: ie ! rf: 4 . SCBLPSM$L RECORD_NUMBER] GTR (.SCBCPSM$L _PAGE_LENGTH] = 6) ) 

; #4 1286 RETURN PSM$_EOF; 

> 344 1287 

> 345 1288 FUNC_DESCCSIZEJ] = .SCBCPSM$L_PAGE_WIDTH) 

; 346 1289 FUNC_DESCCADDR] = PAGE "REFLOT SCBCPSMSL RECORD NUMBER], 

: 347 1530 « SCBCPSM$L_PAGE_WIDTHJJ; 

; 348 1291 

; 349 1338 ! odiust ‘tii 

; 350 129 FUNC_DESCCSIZE] = DELIMIT_STRING_NOT (. Func 4 pee tt 

3 35) 1294 HART3 FUNC “DESCCSIZE)); 

3 Soe 1295 3 

s Soe 1296 2 END; 

; 354 1297 2 

3 «60D 1298 § CPSM$K_OPENJ: 

s 638 1299 BEGIN 

gs Sor 1300 3 

; 358 1301 3 GET_FORM_SIZE (.SCB); ! Returns the WidthxLength 
; 359 1308 3 

; 360 1303 3 

3 36) 1304 3 FORM_WIDTH = .SCBCPSMS$L_PAGE_WIDTH]; 

: 306 1302 ; FORM_LENGTH = .SCBLCPSM$L_PAGE “LENGTH; 

; 44 Bt ; RETURN_IF _ERROR_(ALLOCATE_PAGE( .SCB)); ! Get the page of memory 
3 308 1393 ; PAGE_REF = .SCBCPSMSA_PAGE_POINTER]; ! My local page pointer 
; 368 1311 3 ! Always start at top of page 

3; 369 131¢ 3 i 

: $59 iti? : PAGE -REFCO,0,.FORM_WIDTH] = PSMSK_CHAR_FF; ! form feed in 0 pos. 

3 Sve 1315 3 ! Standard Flag Page 132x66: text covers rows 1 through 58 

: ire 1316 3 : translated to frames... ref starts at 1 and length is 5? 

3; 374 1317 3 FILL_FILE_FLAG( okes's 

3 375 1318 3 E REFCO, 1,.FORM_WIDTHI, 

; 376 1319 3 PrORA G WIDT 

3 «(S77 1320 ; -FORM_ LENGTH - 6 = 2 - 1); ! total core length... 
s 378 1321 °. burst. 2 sp 

3 144 1356 p margin of ms 

; 380 132 ! Burst always appears on the Flag page starting s fee Length - 5 

3 Je 1324 ! and cont iving re page Length. ‘ is leaves blank Lines 

3 $86 1325 ' between File f ag footer bar and file burst “heed er bar. 

; $67 1358 ; This IS the mS way to perform a BURST over the crease ! 

; 385 1328 : if (. SEPARATE _FLAG_(FILE_BURST)) THEN 

: 386 136) 4 BEGIN 

5 87 1330 4 STRING_DESCCSIcc] = ZALLOCATION(BUFFER); 

; $60 133! 2 STRING_DESCCADDR] = BUFFER; 

: 4 1335 ? determine the correct size of the string to insert 

: 392 1335 4 GET_vMS_LOGO 


Print sree tent -- separation routines 
FILE_FLAG 
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: 1251 
: 1271 


ERI FRA 
(SP), SP 
aSMB_CONTEXT, 


INS 


-ENTRY PSMSFILE_FLAG, Save R2,R3,R4,R5,R6 
=52 


MOVAB 
MOVAB 
MOVL 
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FILE_FL 


scesnt 
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FILE_FLAG 
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to page 
SCB = .SMB_CONTEXT(O); 
! Check the FUNCTION requested 
SELECTONEU -FUNCTIONCOJ OF 
CPSM$K_READ): 
BEGIN 


SEPARATE rin atest =- separation routines 15-Sep-1986 9: ¢3: 93 VAx-11 Bliss-32 iit ots Page 14 
v04-001 PSMSE Ie TRAILER = Print a File Trailer Page 12: -Sep-1984 6 CPRTSMB.SRCIJSEPARATE .B832;2 (6) 
7 464 1384 1 Asbttl "PSMSFILE_TRAILER = Print a File Trailer Page’ 

: 44 1385 1 ! Functional Description: 

> «444 1386 1 his routine controls the creation of the file flag page. The 
i}; 46465 1387 1! pune TION code dictates the action taken in creation. 

: 446 1388 1! FUNCTION: 

: 4467 1389 1! OPEN - Allocate and create the file Fla vone 

; 448 1390 1! READ = Return the current Line of the file Flag Page 
; 4649 133) 1: CLOSE = Return the buffer allocated on OPEN 

; 450 1 3 1! 

; 451 1393 1 ' Formal Parameters: 

3 126 1394 1! SMB_CONTEXT = Pointer to the SMB 

; 65 1333 1 i USER CONTEXT = User det ined ointer (not used here) 
3; 454 1396 1! NCTION - OPEN, READ, CLOSE 

; 455 1397 1! FUNC DESC - Pointer to “functionally dependent descriptor 
3; 456 1398 1! FUNC_ARG - Pointer to functionally dependent argument 
3; 457 1399 1! 

: 458 1400 1! Implicit ems: 

; 459 1401 1! on 

; 460 O56 1! 

: 461 1403 1! Implicit Outputs: 

: 462 1404 1! none 

; 463 1405 1! 

: 464 1406 1 ! Returned wetune 

: 465 1407 1: 

; 466 1408 1 i 

; 467 1409 1 ! Side Effects: 

; 468 1410 1! none 

: 469 1411 1 /- 

: 4670 1412 #1 

s 671 1413 1 GLOBAL ROUTINE hs hae - TRAILER ( esette *FILE_TRAILER' 

: 472 1414 1 SMB_ CONTEXT REF VECTOR 

s 4675 1415 1 USER CONTEXT : REF VECTOR, 

; 4674 1416 1 NCTION : REF VECTOR, 

: 675 1417 1 FUNC DESC : REF veeton® 

; 476 1418 #1 FUNC “ARG : REF VECTO 

3; 4677 1419 1 

: 478 1420 2 BEGIN 

3; 479 1421 2 

; 480 1422 2 LITERAL 

; 481 1425 2 TRAILING = 1; 

: 482 1424 2 LOCAL 

s 4865 1425 2 cB : REF $BBLOCK, 

; 484 1426 2 STATUS, 

; 485 1427 2 FORM _WiDTH, 

: 486 1428 2 FORM~LENGTH, 

: 687 1429 2 FORM_ size. , 

: 688 ee § PAGE_REF : REF PAGE_ARRAY; Declare the pointer 
: 1432 2 

: 143 

: 143 

, 143 

3 143 § 

: 143 

: 143 S 

s 143 

: 144 
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GET_FORM_SIZE (.SCB); 


FORM_WIDTH 

FORM_LENGTH 

RETURN_IF_ERROR_ 
PAGE_REF = 
Always start at top of page 
PAGE_REFCO,0,.FORM_WIDTH] = 
Stenderg Trailer Page 132x66: 


nslated to frames... 
Fru FILE “TRAILER. gees 


(ALLOCATE _PAGE ( 


END; 
CPSM$K_CLOSE): 


COTHERWISE): 
RETURN PSM$_FUNNOTSUP; 
TES; ! case .function 
SS$_NORMAL 


END; 


. SCBLPSM$A_PAGE_POINTER]; 


PSMSK_CHAR_FF; 


Retu 
RETURN_IF _ERROR_(DEALLOCATE_PAGE(.SCB)) 


F 14 
mbiont -- separation routines 16-Sep- “13 4 AX-11 Bliss-32 V4.0-74 Page 15 
T KTLER 14- ~fen- 1 98: 3: 9 PRTSMB’S Reis SEPARATE. b33;2 ° (6) 
LOCAL TEMP_PTR; 
PAGE_REF = .SCBCPSMSA_PAGE_POINTER); 
Output one Line - a time 
IF .SCBCPSMSL S EOF. NUMBER] GTR (. SCBCPSMSL PAGE LENGTH] - - 2) THEN 
RETURN PSM$_E 
FUNC_DESCCSIZE] = satan PAC" _wWIDTH 
FUNC_DESCLADDR) = PAGE _REFC zStBCESHSL Jieconp NUMBER], 
CPSM$L_PAGE _WID DTHJI; 
' adjust pointe 
FUNC_DESCCSIZE] = DELIMIT STR NG_NOT (, = FUNC DESCCADDRI, 
ART32), FUNC _DESCCS*ZEI); 
END; 
CPSM$K_OPEN]): 
BEGIN 


! Returns the WidthxLength 


. SCBLPSMSL_PAGE_WIDTH); 
- SCBEPSM$L~PAGE LENGTH); 


-SCB)); ! Get the page of memory 


' My local page pointer 


! form feed in 0 pos. 


text covers rows 1 through 58, 


ref starts at 1 and length is 57. 
E AREFCO, 1,.FORM_WIDTHI, 

PrORA G TH, 

-FORM_ ~TENGTH -6-+2-1); 


' total form Length.. 
i oo burst, 2 spaces” 
: -top margin of 1 


' rn the Page of Memory 
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Print Symbiont == separation routines Jo~300- 138% 95:93:93 gh Bliss-32 V4.0-74 Page 17 
PSMSJOB_BURST = Print a Job Burst Page 14-Sep-1984 22:52:26 PRTSMB.SRCJSEPARATE .B32;2 (7) 
1495 1 Xsbttl 'PSM$SJOB_BURST = Print a Job Burst Page’ 
1039 1 ! Functional Description: . 
1497 1! his routine controls the creation of the job burst page. The 
1498 1! FUNCTION code dictates the action taken in creation. 
1499 1! FUNCTION: 
1500 1! OPEN = Allocate and create the Job Burst Page 
1501 1! READ = Return the current Line of the Job Burst Page 
1206 : CLOSE - Return the buffer allocated on OPEN 
1504 1 ! Formal Parameters: 
1505 1! CONTE - Pointer to the SMB 
1506 1! USER_CONTEXT = User defined pointer (not used here) 
1507 1! UNCTION - OPEN, READ, CLOSE ; 
1508 1! FUNC_DESC - Pointer to functionally dependent descriptor 
1202 : FUNC_ARG - Pointer to functionally dependent argument 
1511 1°! Implicit Inputs: 
1318 1! none 
1513 1! 
1514 1°! Implicit Outputs: 
1518 1! none 
1516 1! 
1517 1 ! Returned Value: 
1816 1! non 
tiv 33 .. 
1520 1 ! Side Effects: 
1521 1! non 
1522 1 !-- 
1523 1 GLOBAL ROUTINE PSM$JOB_BURST ( XSBTTL "JOB_SURST' 
1524 1 SMB_ CONTEXT : REF VECTOR, 
1525 1 USER_CONTEXT : REF VECTOR, 
1526 1 FUNCTION : REF VECTOR, 
1527 1 FUNC _DESC : REF VECTOR, 
1528 1 FUNC_ARG : REF VECTOR 
1529 1 ) = 
1530 2 BEGIN 
1531 2 
1532 2 LOCAL 
1533 2 SCB : REF $BBLOCK, 
1534 2 STATUS 
1535 2 FORM_WIDTH, 
1536 2 FORM_LENGTH, 
1537 2 FORM_SIZE, 7 
1538 § PAGE _REF : REF PAGE_ARRAY; ' Declare the pointer 
1539 ! to page 
1540 2 
HF 9 ; SCB = .SMB_CONTEXTCO); 
1348 ! Check the FUNCTION requested 
1362 SELECTONEU .FUNCTIONCO) OF 
134? CPSM$K_READ]: 
1549 PAGE_REF = .SCBCPSMS$A_PAGE_POINTER]; : 4 
1550 ' Cutout one Line at a time 
1551 4 IF .SCBCPSM$L_RECORD_NUMBER] GTR (.SCBCPSM$L_PAGE_LENGTH] - 6) 
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14 
Print Symbiont -- separation routines 1b-5e -1984 02:23:03 AX-11 Bliss-32 V4.0-74 
JOB BURST 1278687138 95°93: 6 PRTSMB.SRC SEPARATE 103952 
1228 THEN 
122? RETURN PSM$_EOF; 
1555 FUNC_DESCCSIZE] = pSCOCe stat Page WIDTH); 
1556 FUNC-DESCLADDR] = PAGE_REFL 2 SCBEPSHSL RECORD NUMBER, 
1337 . SCBEPSM$SL_PAGE_WIDTHJJ; 
1559 ! od iust petoter 
1560 FUNC_DESCCSIZE] = DELIMIT_STRING_NOT (.FUNC p SCCADDRI, 
130) H ZCHARTS2), .FUNC_DESCCSIZEJ); 
eh ftw: 
1565 ¢ CPSM$K_OPEN): 
1266 BEGIN 
1208 ; GET_FORM_SIZE (.SCB); ! Returns the WidthxLength 
1570 3 
1571 3 FORM_WIDTH = .SCBCPSM$L_PAGE_WIDTH); 
1372 3 FORM_LENGTH = .SCBCPSMS$L~PAGE LENGTH; 
13r8 ; RETURN_IF_ERROR_(ALLOCATE_PAGE( .SCB)); ! Get the page of memory 
1326 ; PAGE_REF = .SCBCPSMSA_PAGE_POINTER]; ! My local page pointer 
1278 ; ! No form_feed on a burst page 
1580 3 ! Standard Burst Page 132x66: text covers rows 2 through 60, 
1581 3 ! translated to frames... ref starts at 2 and length is 58. 
1582 3 FILL_JOB_FLAG( .SCB, 
1583 3 PAGE _REFCO,2,.FORM_WIDTHI, 
1584 3 .FORM_WIDTH, 
1585 3 -FORM_LENGTH - 6 = 2 ); ' 6 blank Lines 
1286 § END; ! top margin is 2 
1588 2 CPSM$K_CLOSE]): ' Return the Page of Memory 
1389 ¢ RETURN_IF_ERROR_(DEALLOCATE_PAGE(.SCB)); 
17) 6 COTHERWISE): 
1338 5 RETURN PSM$_FUNNOTSUP; 
139 2 TES; ! case .function 
1596 5 SS$_NORMAL 
1597 2 
1598 1 END; 


.ENTRY PSM$JOB_BURST, Save R2,R3.R4,R5 
MOVL aSMB_CONTEXT, SCB 

@FUNTTION, RO 

CMPL RO, a5 
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SEPARATE Print Symbiont -- separation routines 16-Sep-1984 02:23:03 AX=-11 
v5e-001 PSMSJOB. FLAG - Print a Job Flag Page 17308-1383 93:93:98 PRTSMB 


Zsbttl 'PSMSJOB_FLAG = Print a Job Flag Page’ 
Functional Description: 


o 
uw 
oO 
_ 
uw 
so 
oO 
_ 


his_routine controls the creation of the job flag page. The 
put ion code dictates the action taken in creation. 
OPEN - Allocate and create the Job flag Page 
READ = Return the current Line of the Job Flag Page 
CLOSE = Return the buffer allocated on OPEN 


Formal Parameters: 


loleleleleleloleio! 


Pointer to the SMB 
User defined pecater (not used here) 
AD, CLOS 


to page 
SCB = .SMB_CONTEXT(O]; 
! Check the FUNCTION requested 
SELECTONEU .FUNCTIONCO) OF 
CPSM$K_READ]: 


; 1 

; 1601 1 

H 16 § 1 

; 16 1 

; 1604 1 

; 1605 1 

; 1606 1 

; 1607 1 

; 1608 1 

; 1609 1 - 

; 1610 1 - 

> 671 1611 1 UN - OPEN, RE E 
; 67 16i¢ 1 FUNC_DESC - Pointer to functionally dependent descriptor 
$ of? a : FUNC_ARG - Pointer to functionally dependent argument 
: 675 1615 1 Implicit Inputs: 

; 676 1616 1 non 

; 677 1617 1 ' 

; 678 1618 1 ! Implicit Outputs: 

; 679 1619 1 none 

; 680 1620 1 

; 681 1621 1 ! Returned Value: 

; 682 lose 1 non 

; 683 1625 1 

> 684 16246 1 ! Side Effects: 

; 685 1625 1 non 

; 686 1626 1 !-- 

; 687 1627 1 GLOBAL ROUTINE PSMS$JOB_FLAG ( X%SBTTL ‘JOB_FLAG' 

; 688 1628 1 SMB_CONTEXT : REF VECTOR, 

: 689 1oe> 1 USER_CONTEXT REF VECTOR, 

3 690 1630 1 FUNCTION REF VECTOR, 

; 691 1631 1 FUNC_DESC REF VECTOR, 

; 69 1636 1 FUNC_ARG REF VECTO 

; 69 1633 1 ) = 

3: 694 1634 2 BEGIN 

; 695 1635 2 LITERAL 

; 696 1636 2 TRAILING = 1; 

; 697 1637 2 

; 698 1638 § LOCAL 

; 699 1639 SCB : REF $BBLOCK, 

; 700 1640 2 STATUS, 

; 701 1641 FORM_WIDTH, 

: 70 1046 FORM_LENGTH, 

; 70 164 FORM SIZE, 

; 704 1644 2 UFFER VECTOR $3 i2-bytel. ! Assume max size 512 bytes. 
; 705 1645 2 STRING DESC VECTOR C2), ' Descriptor to current string 
: 706 1666 PAGE _REF REF PAGE_ARRAY; ; Declare the pointer 
: 1648 

: 1649 

: 1650 

: 1651 

: 163¢ 

; 165 

; 1654 

; 1655 
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SEPARATE Print Symbiont -- separation routines 1b-Se -1984 02:23:03 AX-11 Bliss-32 V4.0-74 Page 21) 
v04-001 JOB_FLAG . 1a-Sep-19 4 93:93:93 PRTSMB.SRCISEPARATE .83 32 ° By 
; Ti6 1656 BEGIN 

: 71 16 PAGE_REF = .SCBLPSMSA_PAGE_POINTER); 

; 718 1658 : Qutput one Line at a time 

3 ah, 1922 3 IF ( .SCBCPSMS$L_RECORD_NUMBER] GTR .SCBLPSMSL_PAGE_LENGTH) 

: 781 1661 4 ( NOT .SEPARATE_FLAG 208 BURST) AND aSCOtPSASL RECORD_NUMBER] 

Be ; 1996 4 GEQ (.SCBLPSM$L_PAGE_LENGTH] - 6 J ) 

: fe 166 T 

3; 724 1664 RETURN PSMS$_EOF; 
: 725 1665 
: 726 1666 FUNC_DESCCSIZE) = sSCOCP SSI, PAGE WIDTHI; 
s fer 1667 FUNC_DESCLADDRJ = PAGE_REFC BERLE SASL RECORD_N MBER], 
: 728 1668 . SCBLPSM$L_PAGE_WIDTHJJ; 

3 44 1669 ; 
; (= 1670 ! odluat ointer | 
s fol 1671 FUNC_DESCCSIZE) = DELIMIT_STRING_NOT (.FUNC_DESCCADDRI, 
3 ee) 1926 3 ZCHARTS2), .FUNC_DESCCSIZEJ); 

i. 1673 3 
; 1674 2 END; 
: 735 1675 2 

: 736 1676 ¢ CPSM$K_OPEN): 
; tor 1677 BEGIN | 
; ee 1678 3 

; 739 1679 3 GET_FORM_SIZE (.SCB); ! Returns the WidthxLength 

: 740 1680 3 | 
‘3; 741 1681 3 
; 742 168@ 3 FORM_WIDTH = .SCBCPSMSL_PAGE_WIDTH); 
: ras 1683 3 FORMLENGTH = .SCBCPSM$L—PAGE LENGTH; | 
; oe ioe? 3 RETURN_IF _ERROR_(ALLOCATE_PAGE( .SCB)); ! Get the page of memory | 
$ oH be £4 ; PAGE_REF = .SCBCPSMSA_PAGE_POINTER]; ! My local page pointer | 
3: 749 1689 3 ! Always start at top of page 
; 750 1690 3 ! 
; 4h 169) : PAGE_REFCO,0,.FORM_WIDTH] = PSMSK_CHAR_FF; ! form feed in 0 pos. 

s 99 1693 3 ! Standard Flag Page 132x66: text covers rows 1 through 58 

: 754 1694 3 ; translated to frames... ref starts at 1 and length is : 
: 755 1695 3 FILL_JOB_FLAG( .SCB, 

3; 756 1696 3 PAGE _REFCO,1,.FORM_WIDTH), 
; 757 1697 -FORA_WIDTH, * 

; 758 1698 -FORM_LENGTH = 6 = 2 = 1); ' 6 burst, 

3; 1699 . 2 spaces before burst, 
; 760 1700 ! top margin is 1 
: 761 1701 4 IF (.SEPARATE_FLAG_(JOB_BURST)) | 
3 roe A 3 THEN 
: 76 1703 4 BEGIN 

3; 764 1704 4 STRING_DESCCSIZE] = XALLOCATION(BUFFER); 

3; 765 1705 4 STRING_DESCLADDR) = BUFFER; 

: 766 1706 4 

3: 767 1707 4 GET_VMS_LOGO 

: 768 1708 4 . 3 

: 769 1709 4 STRING_DESCEO) ' Bufter descriptor 

: 770 1710 4 STRING-DESCLSIZE)); i Returned Length 

: 772 1712 4 INSERT_FRAME 


633;2 
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lV 4-001 PSM$JOB_TRAILER = Print a Job Flag Page 14-Sep-1984 52:26 PRTSMB.SRCIJSEPARATE .832;2 (9) 
: 817 1756 1 Xsbttl "PSMSJOB_TRAILER - Print a Job Flag Page’ 

; 818 1757 1! Functional Description: 

; 819 1758 1! his routine controls the creation of the job trailer page. The 

; 820 1759 1! FUNCTION code dictates the action taken in creation. 

; 821 1760 1! FUNCTION: 

3 bse 1761 1! OPEN = Allocate and create the Job Trailer Page 

; Be 1706 7.4 READ = Return the current Line of the Job Trailer Page 

> 824 76> 3 3 CLOSE = Return the buffer allocated on OPEN 

3 Ses 1764 1! 

: 826 1765 1 ! Formal Parameters: 

; Ber 1766 1! SMB_CONTEXT = Pointer to the SMB 

: 828 1767 1! USER_CONTEXT = User defined pointer (not used here) 

: 829 1766 1! FUNCTION - OPEN, READ, CLOSE 

: 830 1769 1! FUNC_DESC - Pointer to functionally dependent descriptor 

; S33 1ety : FUNC_ARG - Pointer to functionally dependent argument 

: 833 1776 1! Implicit Inputs: 

> 834 1775 1! non 

; 835 1774 1! 

; 836 1775 1°! Implicit Outputs: 

: 837 1776 1! none 

; 838 1777 1! 

; 839 1778 1 ! Returned Value: 

; 840 1779 1! n 

: «(841 1700 Ft 

; 842 1781 1°! Side Effects: 

; 843 ree 7! non 

> 844 1783 1 !-- 

> 845 1784 1 GLOBAL ROUTINE PSM$JOB_TRAILER ( XSBTTiL "JOB_TRAILER' 

: 846 1785 (1 SMB_ CONTEXT : REF VECTOR, 

; 847 1786 1 USER_CONTEXT : REF VECTOR, 

; 848 1787 1 FUNCTION : REF VECTOR, 

3; 849 1788 1 FUNC_DESC : REF VECTOR, 

; 850 1789 «#1 FUNC_ARG : REF VECTOR 

z 833 1790 1 = 

;. 6 Oe 1791 2 BEGIN 

3 O33 16 2 

3 854 1793 2 LITERAL 

3 855 1794 2 TRAILING = 1; 

; 856 1795 2 LOCAL 

s 857 1796 2 CB : REF $BBLOCK, 

; 858 1797 : STATUS 

; 859 1798 FORM_WIDTH, 

: 860 1799 2 FORM_LENGTH, 

; 861 1800 2 FORM~SIZE, 

3; 862 1801 2 PAGE _REF : REF PAGE_ARRAY; ' Declare the pointer 

: 863 1802 2 ! to page 

3: 864 1803 2 

: 865 1804 2 SCB = .SMB_CONTEXTCO]; 

; 866 1805 

; 867 1806 ! Check the FUNCTION requested 

; 868 1807 

; 869 1808 § SELECTONEU .FUNCTIONCO) OF 

; 870 1809 SET 

: fri 1810 CPSM$K_READ): 

: a7 1811 N 

: 87 1812 LOCAL TEMP_PTR; 
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vo4-001 JOB_ TRAILER . exsee= 18s 98:93:93 eT BL es Fe Nhe Oo 285 2 oe 8 
; 874 1813 
: 18 1313 PAGE_REF = .SCBCPSMSA_PAGE_POINTER]; 

5 1a 1318 4 - SCBCPSMSL_RECORD_NUMBER] GTR (.SCBCPSM$L_PAGE_LENGTH] = 2 = 6) 

; 879 1818 RETURN PSM$_EOF; 

; 880 1819 

; «881 1820 UNC_DESCCSIZE] = .SCBCPSM$L_PAGE WIDT 

; 882 1821 UNC_DESCCADDR] = PAGE_REFCO; SCBEP PSM ee RECORD NUMBER], 

; 883 13s¢ 3 "gtBEP PSMSL_PAGE_WIDTHJ]; 

: 884 18235 3 

; 885 1824 : djust he 

: 886 1825 FUNC_DESCCSIZEJ = DELIMIT’ “str NG_NOT (, -Fnc DESCCADDRI, 

; 887 1826 3 ART32), .FUNC_DESCCSIZEJ); 

; 888 1827 3 

; 889 1828 2 END; 

; 890 1829 2 ’ 

; «891 1830 2 CPSM$K_OPEN]: 

: 892 1831 3 BEGIN 

; 893 1832 3 ota; 

; 894 1833 3 wists ge (.$CB); ! Returns the WidthxLength 
; 895 1834 3 

; 896 1835 3 

; «897 1836 3 FORM_WIDTH = .SCBCPSMS$L_PAGE_WIDTH]; 

; 898 1837 3 FORM~LENGTH = .SCBCPSMSL~PAGE LENGTH); 

: ss $2 H RETURN_IF_ERROR_(ALLOCATE_PAGE( .SCB)); ' Get the page c* memory 
3 208 + +3 ; PAGE_REF = .SCBCPSM$A_PAGE_POINTER]; ! My locai page pointer 
; 904 1843 3 ' Always start at top of page 

; 905 1844 3 ! 

8 p45 3 Fs 3 PAGE_REFCO,0,.FORM_WIDTH, = PSMSK_CHAR_FF; ! form feed in 0 ,us. 
; 908 1847 3 : stented Trailer Page 132x66: text covers rows 1 through 58, 

: 909 1848 3 ! nslated to frames... ref starts at 1 and Lenath is 937 ‘ 

: 910 1849 3 FILL 508 TRAILER 4 P 

; «911 1850 3 PAGE_REFCO,1,.FORM_WIDTHI, 

; 912 1851 3 -FORM_WIOTH, 

: 913 1852 3 -FORM_LENGTH - 6-2-1); ! ...6 burst, 2 ep, 
; 914 1853 2 END; ' top margin is 1 
: 915 1854 2 

: 916 1855 2 CPSM$K_CLOSE]: ' Return the Page of Memory 

; 917 1856 2 RETURN_ IF _ERROR_(DEALLOCATE _PAGE(. SCB)); 

; 918 1857 2 

: #919 1858 2 COTKERWISE): 

; 920 1859 2 RETURN PSM$_FUNNOTSUP; 

3; 921 1860 2 . 

s 922 1861 2 TES; ! case .function 

; 925 1306 ra 

: 924 186 § SS$_NORMAL 

s 925 1864 

: 926 1865 1 END; 
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v046-001 PSMSPAGE_HEADER = Print a Header at the Top of 14-Sep-1984 22:32:26 PRTSMB.SRCJSEPARATE .832;2 (10) 
, 928 1866 1 Zsbttl "PSMSPAGE_HEADER - Print a Header at the Top of each Page’ 
is 929 1867 1 ! Functional Description: ? 
; 9350 1868 1! Creates a page header for the current file and prints it at the 
: 93) 1869 1! foe of each page. 
3; § ¢ 1870 1! FUNCTION: 
3 1871 1! OPEN = Allocate and create the Page Header 
> 934 1376 1! READ = Return the current header with the new page number 
3 6935 1873 1! CLOSE = Deallocate the header 
; 936 1874 1! 
; 937 1875 1 ! Formal Parameters: 
; 938 1876 1! SMB_CONTEXT = Pointer to the SMB 
: 939 i 144 1! USER_CONTEXT = User defined pointer (not used here) 
> 940 1876 1! FUNCTION - OPEN, READ, CLOSE 
: 941 1879 1! FUNC_DESC - Pointer to functionally dependent descriptor 
3 org bs : FUNC_ARG - Pointer to functionally dependent argument 
> 944 1886 1! Implicit Inputs: 
: 945 1883 1! none 
> 946 1884 1! ae 
3; 947 1885 1 ! Implicit Outputs: 
: 948 1886 1! none 
> 949 1887 1! 
; 950 1888 1 ! Returned Value: 
; «951 9 # non 
; 92 ovo 3: 
; 935 1891 1 ! Side Effects: 
; 954 1892 1! none 
s 955 1893 1 !-- 
: 956 1894 1 GLOBAL ROUTINE PSMSPAGE_HEADER ( ZSBTTL ‘PAGE_HEADER' 
: 957 1895 1 SMB_CONTEXT : REF VECTOR, 
: 958 1896 1 USER_ CONTEXT : REF VECTOR, 
; 959 1897 1 FUNCTION : REF VECTOR, 
: 960 1898 1 FUNC_DESC : REF VECTOR, 
: 961 1899 1 FUNC_ARG : REF VECTOR 
; 962 1900 1 = 
s 963 1901 2 BEGIN 
: 964 1306 § LOCAL 
; 6965 190 $cB : REF $BBLOCK; 
: 966 1904 2 
: 967 1905 2 SCB = .SMB_CONTEXT(O); 
; 968 1906 2 
: 969 1907 2 ! Check the FUNCTION requested 
: 970 1908 
3; 971 1909 SELECTONEU .FUNCTIONCO) OF 
: 972 1910 SET 
: 973 1911 CPSM$K_READ]: 
3; 974 + 4 BEGIN 
; 975 191 
; 976 1914 IF .SCBCPSM$L_RECORD_NUMBER] GTRU 0 
3 «(O77 1915 THEN 
3; 978 1316 RETURN PSM$_EOF; 
3: 979 191 : : 
; oat 44 | 1 Use the supplied string descriptor as a temp for the page number 
3 386 1369 FUNC_DESC sire = 5; 
; 98 1921 FUNCDESCLADDR] = .SCB_ADDR_(PAGE_HEADER) + .SCB_SIZE_(PAGE_HEADER) - 8; 
; 984 1922 ! 
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von PAGE “HEADER DER 14- ~3ep-1984 93 $3: 8 PRTSMB, SRC SEPARATE. “3 :2 . (18) 
985 3 ! Write the page number into the end of the page header buffer 
986 4 ! (note == since the page number can decrease we always fill out 
14 2 } the page number area with blanks to overwrite any prior data) 
989 P 7 SFAO ( 
990 P 8 SDESCRIPTOR (°!S5<!UL!>" ), ! pad with hg spetes 
991 Pp a FUNC_DESCCSIZEJ, i ignore return Lengt 
1: 99 P 1930 FUNC “DESC 0); i temp output buffer desc 
SS P 1931 . SCBEPSMSL PAGE] i current page number 
994 3 : 
995 3 
99 ; ! copy the page header descriptor size and address to 
pad 3 the function descriptor 
999 3 FUNC_DESCCSIZE) = .SCB_SIZE_ (PAGE_HEADER) 
ei : FUNC_DESCCADDR] = .SCB_ADDR_ (PAGE_HEADER) 
00 END; 
00 
004 CPSM$K_OPEN): 
005 BEGIN 


& 


set carriage control to imbedded 
FUNC_ARGCLO] = PSMSK_CC_INTERNAL; 
Format everything but the page number, but only do it once per task 
IF TESTBITCS (SCBCPSM$V_PAGE_HEADER_BUILT]) 
CREATE_PAGE_HEADER (.SCB); 
END; 
CPSM$K START_TASK): 
' Set the size of the page header equal to the page width adjusted 
for margins. 
BEGIN 
GET_FORM_SIZE (.SCB); ' Returns the WidthxLength 
! Adjust for margins and imbedded carriage control 
SCBCPSMSL_PAGE eh? = pSCetP amet PAGE WIDTH] 
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6 cotPs M$L_LEFT_ MARGIN] ' less Leading spaces 
67 “SCB PSM$L_RIGHT nMARGIND less gersy = runcation 
68 3 ' plus trailing carr 
+4 ! cntrl <CR><LF><LF> 

3 P 71 RETURN_IF_ERROR_ (STRSGET1_DX (ZREF (.SCBCPSMS$L_PAGE_WIDTH]), 

34 i SCBCPSM$O PAGE _HEADER })); 

35 7 END; 

36 74 

37 75 COTHERWISEJ: 

3 6 RETURN PSM$_FUNNOTSUP; 

40 78 TES; ! case .function 

41 79 
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ROUTINE LE _NAME . ts apt *PARSE_ 
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E_FI 

NAME F $BBLOCK, 
CoD 

CT : REF VECTOR 


: SITMBLK (1,8) 


LIST CO, ITMSW_ITMCOD] = .ITEM_CODE; 


RESULTCSIZE] 
RESULTCADDRJ 


SS$_NORMAL 


wattle ITM$W_BUFSIZ); 
-LISTCO 


» ITMSL_BUFADRI; 
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$s 
F 
1 
1 
1 
1 
1 
BEGIN 
LOCAL 
LIST 
CHSFILL (0, ZALLOCATION (LIST), LIST); 
: 
2 
2 
1 


i ed dd dd 
oO jelelelelelelelelelo) 
FRE PRRRRARAAARRAARE REE 
DNANE WN" ODOONAUES WN" OVDONG 
NOPORORONNY) — 
SOOOCCOOVOOVOOOOOOOOOOOOO 
SOOOCSCCOCOOOOO0O0OOOWMMMco 


5 
ep 1986 29:82: 


~EXTRN 
003¢ 00000 PARSE FILE ene 
5E 0c C2 00002 SUBL2 
oc 00 6E 00 2C 00005 mMOVC5 
6E OOO0A 
02. AE 08 AC 80 00008 MOVW 
7E D4 00010 CLRL 
04 AE 9F 00012 PUSHAB 
04 AC 0D 00015 PUSHL 
000000006 00 03 FB 00018 CALLS 
OF 50 €9 OOO1F BLBC 
50 oc AC be 00022 MOVL 
60 6E 3C 00026 MOVZWL 
04 AO 04 AE DO 00029 MOVL 
50 01 00 pose MOVL 
04 00031 1$: RET 
; Routine Size: 50 bytes, Routine Base: CODE + 0631 


3 AX-11 BLi 


$$ -32 v4.0-7 
6 PRTSMB. SRCI SEP 


ARATE. 83 32 


RETURN_IF_ERROR_ (SFILESCAN (SRCSTR=.FILENAME, VALUELST=LIST)); 


SYSS$FILESCAN 


Save R2,R3,R4,R5 
#i2, S 
#0, (SP), #0, #12, LIST 


ITEM CODE, LIST+2 
Py 
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954-001 ALLOCATE. PAGE - Allocate the Page of Memory 1e-Sep-19 4 95:43:92 PRTSMB.SRCIJSEPARATE .B832;2 
: 1070 006 1 &sbttl "ALLOCATE_PAGE = Allocate the Page of Memory’ 
? 4071 007 1 I¢+ - ’ : 
: ote 008 1 ! Functional Description: 
3; 107 009 1! This routine allocates 7 in an amount of 
: Ore gi9 : memory equal to the largest Form Size supported. 
: Inte ois 1 ! Formal Parameters: 
3: 107 01 1! SCB - Address of the SCB 
3; 1078 014 1! 
3; 1079 2015 1! Implicit Inputs: 
: 1080 big 1! none 
; 1081 017 1! 
: 1086 018 1 ! Implicit Outputs: 
3; 108 019 1! none 
: 1084 505s 1! 
3; 1085 021 1 =! Returned Value: 
: 1086 $os¢ 1! non 
3; 1087 2023 1! 
3; 1088 2024 1! Side Effects: 
: 1089 2025 1! none 
; 1090 2026 1 !-- 
: 1091 027 1 ROUTINE ALLOCATE_PAGE( 
3; 109 028 1 SCB. : REF $BBLOCK 
3; 109 029 1 dz 
3; 1094 $ 0 $ BEGIN 
: 1095 031 LOCAL 
3; 1096 soRg 2 PAGE_SIZE; 
3: 1097 20335 2 
: ine Sate 3 PAGE_SIZE = .SCBCPSMS$L_PAGE_WIDTH] * (.SCBCPSM$L_PAGE_LENGTHI+1); 
; 1100 P 2036 2 RETURN_IF_ERROR_( LIBSGET_VM ( XREF(.PAGE SIZE), 
> 1101 2037 2 SCBLPSMSA_PAGE_POINTERJ)); 
: 1102 2038 2 ' FILL it with Blanks 
3: 1103 2039 2 CHSFILL (X%CHAR(32), .PAGE_SIZE 
> 1104 2040 2 . SCBLPSMSA_PAGE_POINTER); 
: 1105 2041 2 
3; 1106 oes 2 RETURN SS$_NORMAL ; 
3; 1107 204 1 END; 
003C 00000 ALLOCATE_PAGE: 
WORD Save R2,R3,R4,R5 
3 04 C2 00002 SUBL2 #4, SP 
04 AC DO 00005 OVL.  SCB, R3 
50 01F8 £3 01 C1 00009 ADDL3 #1, 504(R3), RO 
52 0 0200 C3 C5 O000F MULLS) 512(R3), RO, PAGE_SIZE 
O1FC ¢3 9F 00015 PUSHAB 508(R3) 
04 AE 52 00 td OVL PAGE SIZE, 4(SP) 
04 AE 9F 00010 PUSHAB 4 
000000006 00 02 FB 00020 CALLS #2, LIBSGET_VM 
08 5 9 0027 LBC. = STATUS 
52 20 bE 09 C 0002A MOVCS #0, (SP), #32, PAGE_SIZE, @508(R3) 
O1FC OD 002F 
50 01 dO 000352 MOVL #1, RO 
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ALLOCAT 


54 bytes, 


Routine Base: 


PAGE = Allocate the Page of Memory 


CODE + 0663 


3 15 
16-Sep-1 
14-Sep-1 


04 00035 1$: 


Be 28:82:26 


RET 


AX=-11 Oi ist 
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v56-001 DEALLOCATE. PAGE - Deallocate the Page of Metiory 1e-8ep- 38 93:93:98 PRTSMB.SRC JSEPARATE .832;2 «3 
; 1109 44 1 &sbttl 'DEALLOCATE_PAGE - Deallocate the Page of Memory' 
: 1110 45 1 l4+ . . ' 
3 1111 8 1 ! Functional Description: 
5 i1¢ 47 1! This routine deallocates memory in an amount of | 
; 1337 bes ! } memory equal to the largest Form Size supported. 
; 116 iI i Seeger: appre | 9 Add f the SCB | 
: ! - ress of the 
3 147 O26 ' 
3: 1118 053 1 ! Implicit Inputs: 
: 1119 054 1! none 
: 1120 055 1! ; 
3 1121 056 1°! Implicit Outputs: 
3 11 ¢ 057 1! none 
311 058 1! 
3 1124 059 1 ! Returned Value: 
3 1125 2060 1! non 
3 1126 2061 1! 
3: 1127 $006 1! Side Effects: 
: 1128 2063 1! non | 
s 1362 2064 1 !=- 
> 1130 2065 1 ROUTINE DEALLOCATE_PAGE ( 
3 1131 2066 1 SCB : REF $BBLOCK 
3 1136 2067 1 = 
3 113 2068 BEGIN 
3 1134 2069 LOCAL 
: 1135 2070 PAGE_SIZE; 
3 Nee $058 $ PAGE_SIZE = .SCBCPSMS$L_PAGE_WIDTH] * (.SCBCPSM$L_PAGE_LENGTH]+1); | 
: 1139 P 2074 g RETURN_IF_ERROR_( LIBSFREE_VM ( XREF(.PAGE_SIZE), | 
3: 1140 2075 2 SCBCPSM$A_PAGE_POINTER])); 
2 4141 5076 3 | 
: 1142 2077 2 RETURN SS$_NORMAL; 
: 1143 2078 1 END; 

| 


0000 00000 DEALLOCATE_PAGE: 
. WORD 


45 bytes, Routine Base: CODE + 0699 


3; Routine Size: 


Save nothing ; 2065 
5E 04 2 00002 SUBL2 #4, SP ; 

51 04 AC DO 00005 MOVL CB, RI : 2072 | 

50 O1F8 C1 01 C1 00009 ADDL3 #1, 504(R1), RO ; | 
50 0200 C1 C4 0000F MULL2 512(R1), PAGE_SIZE ; 

O1FC C1 OF 00014 PUSHAB 508(R1) : 2075 
06 AE 50 0 00018 OVL  PAGE.SIZE, 4(SP) Sexe 
04 AE 9F 0001C PUSHAB 4(SPY : 
000000006 00 0 FB 0001F CALLS #2, LIBSFREE_VM ; | 
03 50 E 90026 BLBC STATUS, 1$ ; | 
50 01 00 0029 MOVL #1, RO > 2077 | 
04 0002C 1$: RET 3 2078 | 
| 
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! Functional Description: 

his routine allocates memory and formats the information 
for the page header. Returns success if allocation of memory 
was successful. 


Formal Parameters: 
SCB - Address of the SCB 
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Implicit Inputs: 
none 


Implicit Outputs: 
non 


oo 
oo 
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ws 


Returned Value: 
non 


ee ee ee ee ee 


Side Effects: 
: non 
ROUTINE CREATE_PAGE_HEADER ( 
SCB : REF $BBLOCK 


BEGIN 

LOCAL 8 
REMAINING, } pepe taing headen space 
NAME LENGTH , ! Trimmed file name length 
BUFFER : VECTOR (512,bytel, ! Assume max size 512 bytes0O 
STR_DESC : VECTOR C2), 
HEADER_REF =: REF PAGE_ARRAY, 


!®! SMALL _WIDTHS == THE PAGE NUMBER SHOULD BE THE ONLY THING PRINTED 
te! WHEN THE WIDTH IS TOO SMALL. DATE vs. FILENAME IS DEVO'S CHOICE 


HEADER_SIZE = .SCB_SIZE_ (PAGE_HEADER) - 3; ! don't include the carriage 
' control area of 3 bytes 
HEADER_REF -SCB_ADDR_ (PAGE_HEADER); 

CHSFILL (2CHAR(32), .HEADER_SIZE, .HEADER_REF); 

Insert imbedded carriage control <LF><LF><CR> 


CHSFILL (PSMSK_CHAR_LF, 2,(.HEADER_REF + .HEADER_SIZE) 
CHSFILL CPSMSK_CHARTCR, 1,(-HEADER-REF + .HEADER, SIZE) 
- agar 


3 
+ 2); 
ess is offset by two 
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f the header is too small even for ‘Page 99999" then disable page 
eaders. (Maybe this code should be in ‘‘MESSAGE"’). 


HEADER_SIZE LSSU 10 
RETURN SS$_NORMAL ; 
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§ 
§ HEADER_SIZE ; 
2 
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CREATE_PAGE_HEADER = Allocate and Format the Pa 14-Sep-1984 2:52:26 PRTSMB.SRC JSEPARATE .832; 2 (14) 
13? ! Set up the buffer descriptor for ‘'GET_xxx'' Routines 
138 2 STR_DESC(SIZE] = ZALLOCATION(BUFFER); ' allocate for routines 
$178 STR_DESCLADDR) = BUFFER; ! init address 
$13) ; } Insert the word ‘'Page "' 
3148 MOVE _FRAME 
sic 2 - 
145 2 SDESCRIPTOR (Page ") 
2146 2 HEADER REFL .HEAD R_SIZ£-10,0,.SCBCPSMSL_FORM_WIDTHI], 
a4 $ 5; 
149 2 
$120 § Get the filename - include the expected length 
2132 2 STR_DESCC(SIZE] = XALLOCATION(BUFFER); ! reset buffer length 
215 GET"FILE_NAME 
2154 -SCB ! $CB addr. 
2155 .HEADER_SIZE - 11, ! expected length (less page #) 
2156 STR_DESTLO) ! Buffer descriotor 
3137 3 STRIDESCCSIZEI); i Returned Length 
$123 $ NAME _LENGTK = .STR_DESCLSIZE] + 1; ! Save the trimmed Length 
2161 2 INSERT_FRAME ! Left Justified 
2162 2 mF 
21635 2 STR_DESCCO] 
2164 2 HEADER_REFLO,0,.SCBCPSMSL_FORM_WIDTHJ), : 
2165 2 »NAME_CENGTH = 1, ! Always less than frame_width 
2166 2 1); 
2167 2 
2168 2 
2169 2 ! The area remaining for the date is the original header 
2170 2! width less the size of the file name, less the size for the page 
siz) § } number field ("Page 99999"') less one blank for each. 
2173 2 REMAINING = .HEADER_SIZE - .NAME_LENGTH - 10 - 1; 
2174 2 IF .REMAINING LSSU T8 
2175 2 N 
5176 5 RETURN SS$_NORMAL ; 
6178 2 Get the file revision date and center it between file name and page number 
$180 : STR_DESCCSIZE] = ZALLOCATION(BUFFER); ! reset buffer Length 
2181 2 GET“REVISION DATE : 
$18¢ 2 (.SCB, ' $CB addr. 
2185 2 STR_DESC(O) ! Buffer descriptor 
3184 é STRIDESCCESIZEJ); i Returned Length 
186 g CENTER_FRAME 
187 (.SC 
188 ‘ STR_DESCCO), 
189 HEADER _REFL..NAME_LENGTH,O,.SCBCPSMSL_FORM_WIDTHJJ, 
190 2 -REMAIRNING, 
191 2 1); 
2192 2 
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~Vv04-001 CREATE_PAGE_HEADER = Allocate and Format the Pa 14-Sep-1984 22:32:26 PRTSMB.SRCJSEPARATE .B32;2 (14) 
: 1259 192 3 RETURN SS$_NORMAL; 
3 1260 194 
: 1261 195 1 END; 
20 65 67 61 50 006C6 P.AAD: .ASCII \Page \ : 
006CB .BLKB 1 
00000005 O06CC P.AAC: .LONG 5 : 
00000000" 00600 -ADDRESS P.AAD ; 
O1FC 00000 CREATE_PAGE_HEADER: 
.WORD Save R2,R3,R4,R5,R6,R7,RB : 2101 
5E FOF8 CE 9 00002 MOVAB =520(SP5, SP : 
58 04 AC 00 00007 MOVL SCB, RB : 2117 
50 O1FO C& 9E 0000B MOVAB 496(RB), RO : 
56 60 3C€ 00010 MOVZWL (RO), HEADER SiZE F 
56 03 C2 00013 SUBL2 #3, HEADER STZ : 
57 04 AO DO 00016 MOVL 4(RO), HEABER_REF 3 2119 
56 20 6 09 2c 2001 MOVCS #0, (SP), #327 HEADER_SIZE, (HEADER_REF) > 2121 
6647 9F 00020 PUSHAB (HEADER _SIZE)CHEADER_REF J > 2125 
9E OAOA 8F BO 00023 MOVW #2570, &(SP)+ : 
50 57 56 €1 00028 ADDL3 HEADER_SIZE, HEADER_REF, RO : 
02 Ad 0D 90 000eC OVB #13, 2TRO) > 2126 
OA 56 D1 00030 CMPL HEADER_SIZE, #10 : 2132 
72 1F 00033 BLSSU_1$ : 
6E 0200 8F 3C¢ 00035 MOVZWL #512, STR_DESC : 2138 
04 AE 08 AE 9E 0003A OVAB BUFFER, STR_DESC+4 > 2139 
01 DD 0003F PUSHL #1 > 2146 
05 DD 00041 PUSHL #5 : 
F6 A647 OF 00043 PUSHAB -10(HEADER_SIZE) CHEADER_REF : 
AE AF 9F 00047 PUSHAB P.AAC : 2145 
58 DD O004A PUSHL RB > 2146 
0000v CF 05 FB 0004C CALLS #5, MOVE_FRAME : 
6F 0200 8F 3C 00051 MOVZWLE #512, STR_DESC > 2152 
5E 0D 00056 PUSHL SP > 2157 
04 AE 9F 00058 PUSHAB STR_DESC > 2156 
F5 AG ODF 00058 PUSHAB -11THEADER_SIZE) : 2155 
58 DD 0005E PUSHL RB 7 2154. 
0000v CF 04 FB 00060 CALLS #4, GET_FILE_NAME : 
52 6E 01 C1 00065 ADDL3 #1, STRTZESC> NAME_LENGTH : 2159 
C1 DD 00069 PUSHL #1 > 2164 
FF A2 9F 00068 PUSHAB -1(NAME_LENGTH) > 2165 
57 DD O006E PUSHL HEADER_REF > 2164 
oc + 9F 00070 PUSHAB STR_DESC > 2163 
58 DD 00073 PUSHL > 2164 
| oo00v CF 05 FB 00075 CALLS #5, INSERT FRAME : 
56 52 C2 OO07A SUBL2 NAME_LENGTA, R6 > 2173 
56 0B C2 0007D SUBL2 #11, “REMAINING ; 
12 56 (D1 00080 CMPL REMAINING, #18 > 2174 
ge 1F 0008 BLSSU 1 : 
bE 0200 8F 3¢ 00085 MOVZ2WL #512, STR_DESC : 2180 
5E DD OOOBA PUSHL : 2184 
| 04 AE 9F 0008C PUSHAB STR_DESC > 2183 
| 
| 
| 
i 
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CREATE_PAGE_HEADEF = Allocate and Format the Pa 12: -Sep-1984 PRTSMB.SRCJSEPARATE .B (14) 
5 F PUSHL ; 2182 
O000v CF 0 PB $81 CALLS nS, GET_REVISION_DATE F 
01 DD PUSHL : 2189 
2$ DD 0009 PUSHL REM AINING 3 $139 
6247 9F OOO9A PUSHAB (NAME_LENGTH) CHEADER_REF J 3 2189 
cc a 9F 0009D PUSHAB STR_DESC ; 2188 
58 DD OQO0A0 PUSHL R8 ~ : 2189 
0000v CF 05 FB Bak CALLS #5, CENTER_FRAME r 
50 01 00 QOUA? 1$: MOVL #1, RO 3 2193 
04 QOOAA RET 3: 2195 


|; Routine Size: 171 bytes, Routine Base: CODE + 06D4 


marie one 


| SEPARATE Print TUE reat -- separation routines hase ++ 43 0: ¢3 9? AX-11 Oi iets 32 V4.0-7 
| V04-001 FILL_FILE_FLAG = Insert Information into the Fl 12 ree 1B 2:26 PRTSMB.SRCJS 
3 : 4 138 } peaeet "FILL_FILE_FLAG = Insert Information into the FILE Page’ 
: 1265 198 1.‘ Functional Description: 
: : og +44 : This procedure controls all inserts required for the FILE Page. 
; 1268 ; 01 1°! Formal Parameters: 
3; 1269 8 1! - Address of the SCB 
: 1st § 05 } ! PAGE _REF - Pointer to the Page (first byte) 
3; 1271 2206 1! PAGE_LENGTH - Length of Frame 
E \si¢ 2205 1! PAGE_WIDTH - Width of Frame 
: 127 2206 1! 
; iste $50r 1! Implicit Inputs: 
; 1275 208 1! none 
: 1276 2209 1! 
: 1277 2210 1 ! Implicit Outputs: 
: 1278 2211 1! none 
3: 1279 651g 1! 
: 1280 221 1 ! Returned Value: 
: 1281 2214 1! non 
: 1282 sy Eh 2 ae 
3; 1283 2216 1! Side Effects: 
: 1284 2217 1! none 
: 1285 2218 1 !-- 
3; 1286 2219 1 ROUTINE FILL_FILE_FLAG ( 
; 1287 2220 1 + : REF $BBLOCK, 
; 1288 2221 7 PAGE _REF : REF PAGE ARRAY, 
; 1289 $$5¢ 1 PAGE “WIDTH, 
3: 1290 2223 1 PAGE “LENGTH 
3: 1291 2224 (1 NOVALUE = 
3 1292 2225 2 BEGIN 
3 1293 $558 2 
3: 1294 227 2 LITERAL K_MAX_BUFFER_SIZE = 512; 
: 1295 2228 2 
3: 1296 2229 2 LOCAL 
; 1297 2230 2 RET_LEN : VECTORCE1), 
: 1298 2231 2 TOP OFFSET 
> 1299 3232 2 BOTTOM. OFFSET, 
3; 1300 2235 2 BUFFER : VECTOR (512,bytel, ! Assume max size 512 bytes 
; 1301 $Sie § STRING_DESC : VECTOR (2); ' Descriptor to current string 
: 1 $539 § Allocate the buffer for ‘'GET_xxx"’ Routines 
3 1308 2238 2 STRING_DESC(SIZE] = XALLOCATION(BUFFER); ! allocate for routines 
3 1308 $$ip STRING_DESCCADDR] = BUFFER; ! init address 
: 1308 $$¢3 TOP_OFFSET = 0; ' start insert at zero 
: 1309 242 BOTTOM_ OFFSET = -PAGE_LENGTH = 2; ! Note: offset includes next 
; 1310 $$e7 2 ! ‘insert’ frame length 
3 1311 2244 
3 1312 2245 ! ; Gurse characters 
3; 1313 sse8 
3 1314 247 FILL_FRAME (.SCB 
> 1315 3248 g - SCBLPSM$B_FILE_BURST CHAR 
: 1316 249 PAGE_REFCO>.TOP-OFFSET, .PAGE_WIDTH], .PAGE_WIDTH, 3); 
; 1318 2251 ; FILL_FRAME (.SCB 
> 1319 2252 -SCBEPSM$B_FILE_BURST_CHAR], 


EPARATE. 83 sé 


Page 40 
. (15) 


| SEPARATE 
Vv = 


3; 7 
3; } 
3 7 
3; 1 
3 1 
3 3 
| 
3 7 
3; 
, 
3; 7 
3; 7 
3 Y 
; 7 
3 1 
3; 1 
3; 7 
3; 3 
3 7 
3; 7 
3 7 
3; 7 
5 7 
7 
3 3 
3 7 
3; 7 
, ¥ 
3; 7 
3 7 
3 7 
3; 
3 7 
3; 7 
3; 7 
: 7 
3 
3; (1 
3 1 
.y 
3; 
3; 7 
3; 
37 
. 7 
3; 3 
; 7 
3 7 
5 F 
: 
3 
3 
37 
: 7 
, 7 
. % 
3; 7 


cs 


oo 
‘ms 


~" 
mo 
"3 
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PAGE_REFCO,.BOTTOM_OFFSET,.PAGE_WIDiHJ, .PAGE_WIDTH, 3); 
FILLLFRAME (.SCB, 
PAGE_REFC10,.TOP_OFFSET,.PAGE_WIDTH], .PAGE_WIDTH=20, 3); 
FILL_FRAME (SCB, 
PAGE_REFC10,.BO0TTOM_OFFSET,.PAGE_WIDTH], .PAGE_WIDTH-20, 3); 
FILL_FRAME (.SCB 
- SCBLPSM$B_JOB_BURST_CHAR], 
PAGE_REFC1%,.TOP_OFFSET,.PAGE_WIDTH], .PAGE_WIDTH-28, 3); 
FILL_FRAME (.SCB 
.SCBEPSM$B_JOB_BURST_CHAR], 
PAGE_REFC1%,.BOTTOM_OFFSET,.PAGE_WIDTH], .PAGE_WIDTH-28, 3); 
Get the sys$announce note and output to pag 


e 
note: system announcement will fit or will be truncated so there is 
no updating of ‘‘offsets” 


POPRSPIPDPOPINONIPONINDPINNINPYPNIPINDPYNIPNYNININININIPONGPINYNPINIPUNININIPIPYPIPYPIPPYPIPYUPIPUPYPUPYPOPUPYPIPY 


WWAWWNAWNWNNNWAAAWNNNNNAN 


SWANN nuinwinorrersrrerrern OC 
OODDWNAVUE WN“ O OONAUE WIN O S 


' re-init 
STRING_DESCCSIZE] = K_MAX_BUFFER_SIZE; ! reset buffer size 
GET_SYSTEM_ "GSB 


POMIPOMIPINMNPON NM NoMoNofonsnononononononpononononofnononornsPornoponrnrnn 9 


POPIPOPIPODININININYNININIPYNIPINY PIN PUNININININININIPONIPINUNONO Po Non nonoponononononofnonopnonopofrefnoronofnpononnr "oO 


341 

342 

343 

344 

345 

346 ' S$CB addr. 

347 STRING_DESC(OJ ! Buffer descriptor 

348 STRING ~DESEES CSIZE}); i Returned Length 

350 CENTER_FRAME (.SCB, 

351 STRING DESCCO), ; 

32¢ PAGE_REFCO,.TOP_OFFSET + 1,.PAGE_WIDTH], .PAGE_WIDTH, 1); 
354 !_re-init : 

$22 3 STRING_DESCCSIZE] = K_MAX_BUFFER_SIZE; ! reset buffer size 

357 2 GET_DIGITAL -4 060. 

358 291 ! $CB addr. 

359 2 § SIRING_D CCOJ ! Buffer descriptor 

360 2 ; STRING-D CEsise2); i Returned Length 

362 295 CENTER_FRAME (.SCB, 

363 296 STRING_DESCLOJ 

44 3.44 PAGE_REFCO, -BOTTOM OFFSET + 1,.PAGE_WIDTH], .PAGE_WIDTH, 1); 
366 99 As 

367 00 ' Create a sentence describing the current job. 

368 301 ! 

369 308 ‘ 

370 30 STRING DESCESIZE) = K_MAX Pye. SIZE; ' reset buffer size : 
er se TOP_OFFSET = .TOP “OFFSET ' adjust & allow for spacing 
375 306 GET_JOB_DESCRIPTION 

374 307 (.SCB, ' $CB addr. 

375 308 i Use present tense 

376 309 STRING_DESCCO), i Buffer descriptor 


oe 


mbiont == separation routines 
E_FLAG = Insert Information into the FI 12: -Sep-1984 


~” 


STRING _DESCCSIZE]); 
RETURN_FRAME _LENGTH 


.S 
STRING DESC 
E REF 00", .PAGE_WIDTHI, 


PAG 
BOTTOM TOF SET - .TOP_OFFSET); 

gRET_LENCO] GTR 0 

BOTTOM_OFFSET = 


RET_LENCO) = 


IF 
TH 


i 
! Insert the string delimited. 
INSERT FRAME (.SCB, 


18-56 -Sep-1984 


< 28:82:26 


AX-11 Bliss-32 V rf oss. 
PRTSMB.SRC SEPARA 2 


! Returned Length 


string ref. 

ref to frame 
cols to fill 
rows to fill 


-BOTTOM_OFFSET = (.RET ob FNC) * 1); 


fset before inserting 
pp vos ns the space 


Bottom of page. 


STRING 43 ! eng ref. 
PAGE NREP 5. Bottom. OFFSET, PAGE _WIDTH 


'“ref to frame 
»PAGE WIDTH ' cols to fill 
-RET_CENLOJ); 


i rows to fill 
Create a sentence describing the current file. 


4 
OOOO OO0 OO OWWDWDWDWOOMOMMWO ~~ 
DWNAVESWN OO OONOUES WN OOO o 


WWWWWAWWNANAAWNNAWAWw 


- 


Bottom of page. 


! re-init 
STRING_DESCCSIZE] = K_MAX_BUFFER_SIZE; 
GET_FILE_DESCRIPTION 


.SCB, 
STRING_DESCLO) 
STRING-DESCLSIZE]); 


RETURN_FRAME_LENGTH 
(.SCB, 
STRING DESCCO), 
E_REFCO,0 0, .PAGE_ WIDTH, 
PPacE WIDT 
“BOTTOM. OFFSET - . TOP_OFFSET); 
oRET LENCO GTR 0 


BOTTOM_OFFSET = 


reset buffer size 


oOoooooo 
MFWNR—O”O 


SCB addr. 
Buffer descriptor 
Returned Length 


oooo 


RET_LENCO) = 


string ref. 

ref to frame 
cols to fill 
rows to fill 


IF 
TH 
-BOTTOM_OFFSET = (.RET ob EMCO} + 1) 

! offset before inserting 


! insert the string delimited 

INSERT FRAME (.SCB, 
STRING _DESCCOJ, / tring ref. 
PAGE _REFCO, .BOTTOM ~OF FSET, .PAGE WIDTH 


“ref to frame 
-PAGE_WIDTH 


cols to fill 
-RET_CENLOJ); i rows to fill 


: User note 


! re-init 
STRING_DESCCSIZEJ = K_MAX_BUFFER_SIZE; ! reset buffer size 


AUEWDN —OOODNOAUES WN  O ODNA UE WIN $$ O OONAUE WN (OOS NOU EWR O OONOUS WN oO rs 
PIPIPINPIPINININININPONINPYPININYPINININININYAININININININININYINONIPONNoNo No NoPoNoPoNofonononononononononononononsn 


04 
s 7 
; I 
. 3 
s 
..% 
4 
® 
s 1 
3; 
s 3 
. 7 
2s I 
; 1 
. 4 
3 1 
se 
, 1 
. F 
4 
2 7 
3 1 
3 1 
» 7 
3: 1 
s 1 
3 1 
3 3 
3 1 
3 1 
: 7 
3 1 
9 
s 1 
3 1 
s 1 
s 3 
3: 1 
3 1 
: 1 
3 1 
3 1 
s 1 
3s 1 
| 
3 3 
3: 1 
=. 
3 1 
se 
s 3 
eS 
3s 1 
3: 1 
: 1 
: 1 
: 1 
3 1 


Foe oP > oF oF oF oF ot oF at ot ot et ot et et ee ek 
WHO OONOAUSWN (OO OONAUESWN —OOONO 


WAAR NINPONPONINPINNYDY 2 OP? OO Oo oe 
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v5e-001 m (E_FLAG - Insert Information into the Fl 14-Sep-1984 93:93:56 PATSMB’SRESSEPARATE.B39:2 . (15) 
1434 ! Get the user note 
1435 GET_USER_NOTE 
1436 (SC ' §$CB addr. 
7 STRING DESCEOI i Buffer descriptor 
STRING-DESCLSIZE)); i Returned Length 
RET_LEN(O) = RETURN. FRAME_LENGTH 
STRING DESCLO] ! string ref. 
PAGE _REFCO,0,.PAGE_WIDTH], | ref to frame 
. PAGE cols to fill 


GE WIDTH i 
“BOTTOM_OFFSET = .TOP_OFFSET); | 


! insert the string delimited 
INSERT_FRAME (.SCB, 
STRING 40 et. ' string ref. 


rows to fill 


PAGE_REFCO,.TOP_OFFSET,.PAGE_WIDTHJ, 
! ref to frame 
«PAGE _WIDTH ' cols to fill 
-RET_CEN(LOJ5; i rows to fill 
User name 
; ! re-init 
STRING_DESCCSIZE] = K_MAX_BUFFER_SIZE; ! reset buffer size 
IF RET_LENLO GTR 0 
TOP_OFFSET = .TOP_OFFSET + .RET_LENLO] + 1 
TOP_OFFSET = .TOP_OFFSET + 1; 


! adjust & allow for spacing 


AAAAOCOAOOMMIVIMVNIVNNNIVIVIVI SE BELPER EE PW 


Go o 


RET_LENCO] = INSERT_NAME_BANNER (.SCB, 
SCB_SIZE_(USER_NAME),  ! user name desc 
PAGE_REFCO,.TOP_OFFSET,.PAGE_WIDTHJ, 
' ref to frame 
-PAGE_ WIDTH ' max width Bann 


Fk dal tk at et ee eee ee et 


-PAGE_ WIDTH ! max width Bann 
.BOTTOM_OFFSET - .TOP_OFFSET); 


Be Se Be Be Bs Se Se Se Se Se Se Ge Se Be Be Se Se Se Se Se Se Se Se Se Fe Ge Ge Fe Se Se Se Se Ge Se Ge Be Se Se Se Se Ge SF Se SFOs Se Se Se Fe Se Fees Se Oe Be Seas 
PRIPOPOPIPOPPOPINININNYPININYNINIPINYPYNIPYINIPINININININYIAINININININPIAINIPINIPIPNYIPIPIPOPYPYPOPUPIPUNIPINPYPYNPIP oo 


ee ee ee eee ee eee eee) 


0 
0 

6 0 

7 0 P 

7 40 -BOTTOM_OFFSET - .TOP_OFFSET, 

7 405 ! frame length 

f 138 7); : max hght Bann str desired 

7 408 IF .RET_LENCO) GTR O 

7 409 THEN 

7 410 TOP_OFF SET = .TOP_OFFSET + .RET_LENCO]) + 2; : 

. th ! adjust & allow for spacing 

: 418 : Get and insert the filename banner 

8 415 ! re-init ; 

8 416 STRING DESCCSIZE) = K_MAX_BUFFER SIZE; ' reset buffer size 

4 417 RET_LENCO) = INSERT_FILENAME_BANNER 

4 418 (.SCB, 

4 419 STRING _DESC(O) ' Buffer desc. 

4 40 PAGE_REFCO,.TOP_OFFSET, .PAGE_WIDTHJ, 

4 421 ' ref to frame 

4 $56 

4 42 


000000 


53 


58 


55 


es Print ive’ 
v04-0 FILL_FILE_F 
3: 1491 424 

: 1038 425 

3; 149 4 $ 

3: 1494 4 

3; 1495 428 

: 1496 429 

3; 1497 4350 1 END; 


69 


69 


7E 
69 


ont == separation routine 
LAG = Insert Information 


IF .RET_LENCO] GTR 0 
THEN 
TOP_OFFSET 


02A4 


E 
02A6 


oa 
oc 


o 
“ 
POOVWM & POON LVIMNOOVION SW HVE NVHEOCO PROMO 


SAYA & NAMA A FNAME AO LS NO NOWPPOM TM HTH 


> 
co 


A544 


.TOP_OFFSET + 


OFFC 


LZoOOOO NOOO OVOI NSOOCOOI "TOON VTIO NRO OVONVITVTVTOFOOWOoOoOO 
JO PMMODVOOs™*OWVDO™**"OWDIOYS "NO TWIS SPO "™NOVOCIUOWLMOMmmm 


toto tne 11 JErSeBeTSBt 99:93:95 


VAX=11 Bliss-32 V4.0 
CPRTSMB.SRCISEPARATE. 83 2 


' rows to fill 


-RET_LENCO] + 2; 
' adjus 


00000 FILL_FILE_ FLAG: 
. WORD 


LOCOCO OOSCOCOOOOOOCOOCOOOCOOOO OOOO OOCOOCOOOOOOOOOoOO 
Pre De fe | we ee ee fe) oe ee we ee ee we eee eee lel elelololelololololelelololeolololololo) 
OOOCOCOOCOCOCOCOSOCOSOOOOCOSO COCO OSSOOOC OOOO OCOCOO COCO OOOOCOO 


BOOD 09 09 SI INI IDDBA OA IIIT ES EAN 
ODN MS SONM TS SPOONS FPOWOlM FOVNM S NW 
v 
— 
” 
é 


t & allow for spacing 


R3,R4,R5,R6,R7,R8,R9,R10,R11 
FRAME 


OO CMe 


_OFF 
, PAGE_LENGTH, BOTTOM_OFFSET 
PAGE _WIDTH, R7 

R?° E oe Serer. R8 

(R8)CR4I 

SCB, R6 

676(R6) -(SP) 

#5, FILL_FRAME 

TIOM_OFFSET, R5 

4] 

), (SP) 

LL_FRAME 


Page 44 


Pe Se Se Se Se Se Se Se Se Se Se Se Se Se Se Se Be Se Ge Se Se Se Se Se Se Se Be Ge Ge Se Se Be Be Se Fe Se Se So Se Fe Fi Se Be Be 


(15) 


2219 


2257 


2261 


2265 


NOCOFW NO 


J 16 
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$5c-001 FILL_FILE. FLAG © lasort A Ake de. into the FI 12-808 -1 3b 95:93:93 PRISMB_SRCISEPARATE .B3 32 9° 48) 
03 DD 0009 PUSHL #3 : 2269 
f A? OF O03¢ PUSHAB -28(R7) : 
E A544 oF 0009 PUSHAB 14(R5)(R4J : 
7E 02A £6 A 00099 MOVZBL 678(R6), -(SP) : 
6 0D 009 USHL Rs : 
69 05 FB OOOA ALLS #5, FILL_FRAME : 
6E 0200 8F 3C OOOA MOV2WL #512, STRING_DESC : 2276 
5E DD 000A8 PUSHL $P : 2281 
04 AE 9F OOOAA PUSHAB STRING_DESC ; 3280 
36 DD OOOAD PUSHL RS + 2279 
0000v CF 03 FB OOOAF CALLS #3, GET_SYSTEM_ANNOUNCEMENT : 
04 DD 90084 PUSHL #1 + 2285 
7 DD 00086 PUSHL R7 : 
58 01 Ag 9€ 00088 MOVAB 1(R2), RB : 
58 57 C4 000B8C MULL2 7, RB ; 
6844 SF OO0BF PUSHAB (R8)CR4] : 
OC AE OF 900¢¢ USHAB STRING_DESC : 2284 
56 DD 000C PUSHL R + 2285 
0000v CF 05 FB 000C7 CALLS #5, CENTER FRAME : 
6E 0200 8F 3¢ 000CC Mov2wL #512, STRING_DESC ; 2288 
5E DD 00001 USHL SP + 2293 
04 AE 9F 00003 PUSHAB STRING_DESC + 2292 
56 DD 00006 PUSHL R > 2291 
0000v CF 03 FB 000D8 CALLS #3, GET_DIGITAL_LOGO ; 
01 DD 000DD PUSHL #1 : 2297 
57 DD OO00DF PUSHL 7 ; 
55 01 A3 9E 000E1 MOVAB 1(R3), RS : 
55 57 C4 OOOES MULL2 7, R ; 
6544 SF OO0E8 PUSHAB (R5)CR4] : 
OC AE 9F OOOEB PUSHAB STRING_DESC > 229 
56 DD OOOEE PUSHL R : 229 
0000v CF 05 FB OO00FO CALLS #5, CENTER FRAME : 
6E 0200 8 3C O00FS MOVZWL #512, STRING DESC : 230 
52 04 CO OOOFA ADDL2 #4, TOP_OFFSET : 230 
SE DD OO0OFD PUSHL SP : 231 
04 AE OF OOOFF PUSHAB STRING_DESC > 230 
01 DD 00102 PUSHL #1 : 230 
6 DD 00104 PUSHL R6 : 
0000v CF 04 Fe 90106 CALLS #4, GET_JOB_DESCRIPTION : 
7E 53 52 C3 00108 SUBL3 TOP_OFFSET, BOTTOM_OFFSET, -(SP) > 2317 
0090 8F 8B 0010F PUSHR #*MZR4,R7> : 2315 
OC AE 9F 00113 PUSHAB STRING. DESC > 2314 
56 DD 00116 PUSHL R6 : 2315 
6A 99 FB 00118 CALLS #5, RETURN FRAME_LENGTH F 
55 0 pO 0011B MOVL RO, RET_LEN : 
08 3 OOt1E BLEQ = i$ : 2319 
50 53 C3 00120 SUBL3. RET_LEN, BOTTOM_OFFSET, RO + 2321 
53 FF AO SE 00124 MOVAB -1(RO), BOTTOM_OFFSET ; 
55 DD 00128 1$: PUSHL RET_LEN ; 3330 
57 Dp 0012A PUSHL R : 329 
50 53 57 ¢ 01 C MULL3 R7 BOTTOM_OFFSET, RO : 2327 
6044 9F 00130 PUSHAB (RO)CR4) ; 
OC AE 9F 00133 PUSHAB STRING_DESC ; 3326 
36 DD 001 PUSHL : 2327 
6B 0 FB 00138 CALLS #5, INSERT_FRAME ; 
6£ 0200 8F 3C 00138 MOV2WL #512, STRING_DESC ; 2335 
SE DD 00140 PUSHL SP : 2340 


Ouoeme oOoO-u NO NOOO -O0 
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35-501 FILU FILE FLAG = Inserts informerton into the FI VoeseneioRe S883 156 «eat SnacsaeSseeanate 035-2 9¢ 438 
04 AE OF 142 PUSHAB STRING DESC : 2339 
56 DD 0014 PUSHL : 2338 
0000v cf " EB O147 CALL GET_FILE_DES cRIP TION : 
7E C3 0 146 SUBL it mA Ae BOTTOM OFFSET, -(SP) : 2347 
0090 8F 6B 0015 PUSHR : 3345 
OC AE 9F 00154 PUSHAB STRING. DESC + 2344 
36 DD 00157 PUSHL R + 2345 
6A 05 FB 00159 CALLS #5, RETURN FRAME_LENGTH : 
55 50 pO 0015¢ OVL RO. _LEN : 
08 15 0015F LEG + 234 
50 53 55 ¢3 00161 SUBL3 ee T si BOTTOM_OFFSET, RO + 235 
53 FF Ad 95E 00165 MOVAB=1 tt, ‘ BOTTOM_OFFSET : 
55 DD 00169 2$ PUSHL + 236 
57 DD 00168 PUSH + 235 
50 53 57 C5 6016D MULL3 R7 "BOTTOM. OFFSET, RO + 235 
6044 9F 00171 PUSHAB (RO)CR4] : 
Oc AE 9F 00174 PUSHAB STRING_DESC : 235 
56 DD 00177 PUSHL R > 235 
68 05 FB 00179 CALLS #5, INSERT_FRAME : 
6E 0200 8F 3C¢ 0017¢ MOVZWL sie, STRING_DESC > 236 
5E DD 00181 PUSHL > 237 
04 AE 9F 00183 PUSHAB STRING. DESC : 237 
56 DD 00186 PUSHL : 236 
0000v CF 03 FB 00188 CALL a, GET_USER_NOTE ; 
7E 53 52 ¢3 0018D SUBL Top OFFSET, BOTTOM_OFFSET, -(SP) : 237 
0090 8F 6B 00191 PUSHR #*MZR4,R7> : 237 
OC AE 9F 00195 PUSHAB STRING. DESC : 237 
56 DD 00198 PUSHL R : 237 
6A 05 FB O019A CALLS #5, RETURN FRAME_LENGTH : 
55 50 pO 0019D MOVL RO, RET_LEN : 
55 DD 001A0 PUSHL : 238 
57 DD OO1A2 PUSH : 238 
58 52 57 ¢5 O01A4 MULL3 7, TOP_OFFSET, R8 : 238 
6844 SF OO1A8 PUSHAB (R8)CR47 : 
OC AE 9F OO1AB PUSHAB STRING_DESC : 238 
56 DD OO1AE PUSHL R6 : 238 
68 05 FB 001B0 ALLS #5, INSERT_FRAM : 
6E 0200 8F 3C 00183 MOVZWL #312, egiRIRG_ DESC : 239 
55 D5 001B8 ‘cat 5; > 239 
07 15 OO1BA BLEQ 3$ 7 : 
52 01 A542 9E 001BC MOVAB _apree ee cae TOP_OFFSET > 239% 
08 11 001C1 BRB ; 
52 D6 001C3 3$: INCL  TOP_OFFSET : 2396 
07 Dp 001¢3 4$: PUSH : 2401 
7E 53 2¢ C3 O01C7 SUBL3 TOP_OFFSET, BOTTOM_OFFSET, -(SP) + 3404 
57 DD 001CB PUSHL R > 2403 
58 52 57 ¢5 001CD MULL3 7, TOP_OFFSET, R8 + 2401 
6844 SF 00101 PUSHAB (RB)CR47 : 
016C C6 9F 001D4 PUSHAB 364(R6) > 24 
56 DD 00108 PUSHL R6 > 2401 
0000v CF 06 FB OO1DA CALLS #6, INSERT_NAME_BANNER : 
55 50 DO 001DF MOVL RO. RET_LEN : 
05 15 OO1E2 BLEQ 465 : 2408 
52 02 A542 9E O01E4 MOVAB e(RET_LEN) CT OP_OFFSET], TOP_OFFSET + 2410 
oF 0200 8F 3¢ O1E9 5$: MOVZWL #512, STRING DESC : Zhe 
7E 22 C3 OO1EE SUBL3  TOP_OFFSET, BOTTOM _OFFSET, -(SP) > 2423 
57 DD 001F2 PUSHL 7 > 2422 
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v04-001 FILL -FILE_FLAG = Insert Information into the FI 14-Sep-1984 2:26 CPRTSMB. SRCJSEPARATE. B22;2 (15) 
58 52 57 ¢5 1F4 MULL3 R7, TOP_OFFSET, R8 3; 2420 

6844 9F 001F8 PUSHAB (RB)CR47 : 
0c AE 9F OO1FB PUSHAB STRING_DESC 3 2419 
56 DD OOTFE PUSHL Re ; 2420 

0000V CF 92 F 0200 CALLS #5, pOSenT F ILENAME_BANNER s 

55 9 DO 00205 MOVL RO, RET_ 3 
05 15 00208 BLEQ $$ 3 2425 
52 02 A542 YE O020A MOVAB (RET LENDCTOP. OFFSET], TOP_OFFSET § $¢ 7 
04 O020F 6$: T ; 2430 


; Routine Size: 528 bytes, Routine Base: CODE + 077F 
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3 1338 431 1 &sbttl *FILL_JOB_FLAG - Insert Information into the JOB Page’ 

: 130 & § 1 {++ , 

; 1501 4 1 ! Functional Description: 

$ 1208 “ ¢ : } This procedure controls all inserts required for the JOB Page. 

: 1504 4 $ 1 ! Formal Parameters: 

; 1505 4 1} SCB - Address of the SCB 

; 1506 438 1! PAGE _REF - Pointer to the Page (first byte) 

; 1507 459 1! PAGE LENGTH - Length of Frame 

; 1508 440 1! PAGE_WIDTH - Width of Frame 

; 1509 441 1! 

; 1510 rk 1! Implicit Inputs: 

; 1511 445 1! none 

; 121¢ 2444 1! 

s 191 445 1 ! Implicit Outputs: 

: 1514 446 1! none 

3; 1515 447 1! 

: 1516 2448 1 ! Returned Value: 

3 1517 2449 1! non 

: 1518 2450 1! 

3; 1519 2451 1! Side Effects: 

: 1520 sis 1! non 

; 1521 2453 1 !e- 

: 13¢¢ 2454 1 ROUTINE FILL_JOB_FLAG ( 

3; 152 2455 1 SCB : REF $BBLOCK, 

3; 1524 2456 1 PAGE _REF : REF PAGE_ARRAY, 

>; 1525 2457 1 PAGE_WIDTH, 

: 1526 2458 ° 1 PAGE LENGTH 

: 1527 2459 1 : NOVALUE = 

3; 1528 2460 § BEGIN 

3: 1529 2461 

: 1530 g46¢ 2 LITERAL K_MAX_BUFFER_SIZE = 512; 

3 1531 2463 2 

3: 1532 2464 § LOCAL 

3 1555 2465 T_LEN : VECTORC1), 

3 1534 2466 2 TOP_OFFSET 

> 1535 2467 2 BOTTOM_OFFSET, é 

; 1536 2468 2 R : VECTOR (512,bytel, ! Assume max size 512 bytes. 
3 eet $298 2 STRING_DESC : VECTOR (2); ! Descriptor to current string 
3 Ht S44 seo) : Allocate the buffer for ‘'GET_xxx"’ Routines 

3 1541 258 Ley Be ta3 ESE = ZALLOCATION(BUFFER); ! allocate for routines 
; 1306 sere STRING_DESCLADDR) = BUFFER; ! init address 

3 1544 Sih TOP_OFFSET = 0; ; 

3 HF od yh BOTTOM_OFFSET = .PAGE_LENGTH - 2; ! offset includes burst offset 
3 1547 AS ! Burst Character 

: 1548 480 : 

3 1549 2481 FILL_FRAME (.SCB 

> 1550 4B¢ - SCBEPSM$B_JOB_BURST_CHAR], 

: 133) rit PAGE_REFCO,.TOP_OFFSET,.PAGE_WIDTH], .PAGE_WIDTH, 3); 

: 1388 485 FILL_FRAME (.SCB 

> 1554 486 -SCBCPSM$B_JOB_BURST CHAR], 

3; 1555 487 PAGE_REFCO? .BOTTOM_OFFSET,.PAGE_WIDTH], .PAGE_WIDTH, 3); 
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2488 
489 ' System announcement 
490 : 
2491 ! re-init 
138 STRING DESCCSIZE] = K_MAX_BUFFER_SIZE; ' reset buffer size 
49 GET_SYSTEM_ANNOUNCEMENT 
2494 (.SCB, ' $CB addr. 
2495 erainenpeneeey ! Buffer descriptor 
3496 STRING-DESCLSIZE1); i Returned Length 
2498 CENTER_FRAME (.SCB 
STRING DESCLOA 
PAGE_REFCO,.TOP_OFFSET + 1,.PAGE_WIDTH], .PAGE_WIDTH, 1); 
! re-init 
STRING DESCCSIZE] = K_MAX_BUFFER_SIZE; ! reset buffer size 
GET_DIGITAL_LOGO 
(.SCB ! $CB addr. 
STRING_DESCCOJ, ! Buffer descriptor 
STRING_DESCCSIZEJ); ! Returned Length 
CENTER_FRAME (.SCB 


0], 
PAGE_REFCO,.BOTTOM_OFFSET + 1,.PAGE_WIDTH], .PAGE_WIDTH, 1); 
TOP_OFFSET = .TOP_OFFSET + 4; 
Job description - create a sentence describing the current job. 


adjust & allow for spacing 


! re-init 
STRING _DESCCSIZE] = K_MAX_BUFFER_SIZE; ! reset buffer size 
GET_JOB_DESCRIPTION 
(.SCB, ' $CB addr. 
1 ! Use present tense 
STRING_DESCCOJ i Buffer descriptor 
STRING_DESCCSIZE); i Returned Length 
RET_LEN(O] = 7 ENP EL nTe 
STRING descr ol. ' string ref. 
PAGE REFCO,0,.PAGE_WIDTH), ' ref to frame 
P IDTH cols to fill 


AGE _W P 
-BOTTOM_OFFSET = .TOP_OFFSET);! rows to fill 


IF .RET_LENCOJ GTR 0 
THEN 


BOTTOM_OFFSET = .BOTTOM_OFFSET = (.RET_LENCO] + 1); . 
; : : ! offset before inserting 
! insert the string delimited 
INSERT_FRAME (.SCB, 
STRING 33 ype t : str 
PAGE_REFCO, .BOTTOM_OFFSET, .PAGE_WIDTHJ, 
! ref to frame 
-PAGE WIDTH ! cols to fill 
-RET_CENLOJS; i rows to fill 


POPIPOPINININSPPODINNYININYIDINPINININYINPYAINININIANINPIAINININININNYPINYPYNINYINPINPONPYNIPININYNYNNNPNNyNY 


PEK BANANA WIA DIPINIPINYIPININID OO SS SH OOOCOOOCOCOOCOOCNO 
FWP OC OONO VE WN OO DNOA UNE WN SO OONAU EWN" OOONOUSWN CO 


' User note 


| 
| 
| 
| 
| 
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; eee -- separation routines 


' re-init 
STRING_DESCCSIZE] = K_MAX_BUFFER_SIZE; 


' Get the user note 
Set USER MONS 


.SCB 

STRING_DESCEO 

STRING-DESCLSIZE]); 
ETURN_FRAME_LENGTH 
( SC 


RING DEsclOd, 

PAGE _REFLO,0,.PAGE_WIDTHI, 
«PAGE WIDTH, 

-BOTTOM_OFFSET = .TOP_OFFSET); 


! insert the string delimited 
INSERT_FRAME (.SCB, 
STRING DESCCO) ! 


J 
I 


RET_LENCO] = 


-PAGE_WIDTH 
-RET_CENCOJ); i 


IF .RET_LENCOJ GTR O 


TOP_OFFSET = .TOP_OFFSET + 1; 


User Name 


! re-init 
STRING_DESCCSIZE] = K_MAX_BUFFER_SIZE; ! 


PAAAAAAAAAAHAAAAASAASA AAA AAA AAASHAAAASKAAAAS HAHA AAASA AO AS 
DV BBS ESE EE BE BE WAWAWNWNWANIAIPPP PP Pop) 3 SS OS 
OOWONAUVEWN ODO DNOUEWWN 2 OOONAUESWWN HOV ONOULW 


ee ee ee ee ee ee ee ee ee ee ee ne ee ee ee ee ee ee ee ee ee ee ee ee ee ee et 
POPIPPINTNYPINYAIPININYAINPINININIPDNYININININYNINIPYININININININIPYNPINPYUNIPINIPOPYPONNONO NN NPofofnofnofnofnonypnnn OW 


LSS sss 
Be Be Be Oe we Be Oe Be Oe Oe BF Se Oe Be Be Se Be Be Be Be Be Se BH BH He Se BE BH Se HSH Oe Oe Oe Os Os Os OF Oe OH Oe Oe Os Oe SES SHS Oe Oe SHS SH Ss Se Seas 
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PAGE_REFCO,.TOP_OFFSET, .PAGE_WID 
' ref to frame 


} RET_LENCO] = INSERT_NAME_BANNER ( 
1 3 $CB_SIZE_(USER_NAME), ! 
¢ Be PAGE_REFCO,.TOP_OFFSET,.PA 
4 86 .PAGE_WIDTH, i 

55 87 -BOTTOM_OF F SET=.TOP_OFFSET 
56 rt) 
57 89 14); i 
58 90 

59 91 TOP_OFFSET = .TOP_OFFSET + .RET_LENCO] + 2;! 

660 3¢ 

661 +) ' Job Name 

662 94 i 

663 95 ' re-init 

664 %6 STRING_DESCCSIZE} = K_MAX_BUFFER_SIZE; ! 

68 98 GET_JOB_NAME 

667 99 (.SCB, 

668 60 STRING DESCEO} i 

669 601 STRING DESCLSIZE)); 


AX-11 B 


liss- 
2:26 PRTSMB.SRCJS 


reset buffer size 


SCB addr. ; 
Buffer descriptor 
Returned length 


string ref. 

ref to frame 
cols to fill 
rows to fill 


string ref. 
TH], 


cols to fill 
rows to fill 


_ TOP_OFFSET = .TOP_OFFSET + .RET_LENCO] + 1 


adjust & allow for spacing 


reset buffer size 


user name descriptor 
GE_WIDTHI, 


! ref to frame 
!_max width Bann 


° 


' space left 


max hght Bann string desired 
adjust for banner & spacing 


reset buffer size 


SCB addr. 
Buffer descriptor 


' Returned length 


Page 50° 
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FLAG = Insert Information into the JOB i2 


3 
726 CPRTSMB.SRC SEPARA TE.B3 (16) 


v4 


RET_LENCO] = INSERT_NAME_BANNER ( 


STRING pesctsi ze) ig name desc 
PAGE_REFLO,.TOP OFFSET, «PA E_WIDTHI, 
' ret to frame 
-PAGE _W ! max width Bann 
‘BOTTOM OFrget=. TOP_OFFSET 
; Space left 
7); ! max hght Bann str desired 


IF_.RET_LENCO] GTR 0 


TOP_OFFSET = .TOP_OFFSET + .RET LENCO] * a 
' adjust & allow for spacing 


Get and insert the filename banner 


! re-init 
STRING_DESCCSIZE] = K_MAX_BUFFER_SIZE; ! reset buffer size 
Cae ret - 9) GTR .TOP_OFFSET ! test for enough room 


PAA AA AAA AA AAAS AAA AA AO 
0 OO 000009 00 C0 CO 09 C000 09 SI NININI NI INNIS 
WR CO DONAUEWN—"ODOODANOULSWN Oo 


oa 
oo 
= 


BEGIN 
BOTTOM_OFFSET = .BOTTOM_OFFSET - 9; 
st ie BANNER 


STRING DESCCO), Buffer desc. 
PAGE _REFCO, .BOTTOM OFFSET, PAGE WIDTH, 
'“ref to frame 
-PAGE_WIDTH, ' max width Bann 
7); i rows to fill 


S 
0 
' 
2 
: 
2 
2 
2 
2 
2 
2 
2 
2 
2 
2 
; 
; ! offset before inserting 
3 
3 
3 
3 
3 
3 
2 
1 


a ek kk ed ed od 

MOMPOPO PPP Nope nononononofnononononononenononononononononononnn "oO 
PRAEAAXAAXAAAAAA AAAS A AAAS AAAAAOAOAASrAASOASO a 
WWANAANIP PIMPIN PININININIDN 2 2 OO OO SM OOOOCOCOCOO rH 
ABUEWM $$ O OONAU SW HOW ONAUSWN—“OOMNOULWwM ro 


OOFC 00000 FILL_JOB_FLAG: 


R3,R4,R5,R6,R7 ; 2454 


R2,R3, 
SPS, §P 
STRING_ DESC 
R, STRING. DESC+4 
TOP_OFFSET 
SUBL3 ue. “PAGE_LENGTH, BOTTOM_OFFSET 
PAGE_WIDTH, R7 
PAGE REF 
MULL3 TOP OFFSET, RO 
PUSHAB Rr Oye 
SB, .% 
MOVZBL 678(R6), -(SP) 
PU R 


CALLS #5, FILL_FRAME 


53 10 AC 


50 
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OM SF LFS POO ror 
VMAAOLNONOWPRPMaM 
wNOOVOOVC VT TVTIOCVTC NO 
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- - 
Sete Se Se Se Ge Ge Ge Se Se Be Se Oe 


| 
| 
| 
| 


1 | 

SEPARATE Print Symbiont == separation routines bese 1984 02:23:03 AX-11 Bliss-32 V4.0-74 Pp SEP 
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| 3 DD 00038 PUSHL #3 3 2487 32 
a ; : 
50 53 57 ¢% 003F ULL3. 7 BOT TOM_OFFSET, RO : 32 
6044 OF 9004. PUSHAB (RO)[R4] : 32 
7E OZA6 C6 9A 00046 MOVZBL 678(R6), =(SP) : 3 2 
| 56 DD 00048 PUSHER ; : @ 
0000v CF 05 FB S040 CALLS #5, FILL_FRAM : : 2 
6E 0200 8F 3¢ 003¢ MOVZWL #512, STRING_DESC : 3 ¢ 
5E DD 0005 USHL SP > 2496 : 2 
04 AE 9F 00059 PUSHAB STRING_DESC + 2495. 22 
56 DD 0005¢ PUSHL R6 + 2494. : 2 
0000v CF 03 FB 00056 CALLS #3, GET_SYSTEM_ANNOUNCEMENT : | 32 
01 DD 0006 PUSHL #1 : 2500. 3 2 
57 DD 00065 PUSHL 7 : | 3 2 
| 50 01 A2 9E 00067 MOVAB 1(R2), RO : | 32 
50 57 C4 0006B ULL2 R7, RO : | : 
6044 9F O006E PUSHAB (RO)CR4J : : 2 
Oc AE 9F 00071 PUSHAB STRING_DESC > 2499) : 2 
| 56 DD 00074 PUSHL R6 : 2500, 32 
0000v CF 05 FB 00076 CALLS #5, CENTER_FRAME : | 32 
6E 0200 8F 3¢ 00078 MOV2WL #512, STRING_DESC ; 2503) 3 ¢ 
5E DD 00080 PUSHL : 2507 | 32 
04 AE 9F 00082 PUSHAB STRING_DESC > 2506. 3 
56 DD 00085 PUSHL R6 > 2505. 3 2 
0000v CF 03 FB 00087 CALLS #3, GET_DIGITAL_LOGO F : 2 
01 DD 0008C PUSHL #1 > 2511, 3 2 
57 DD OO08E PUSHL R7 : 3 2 
50 01 A3 9E 00090 MOVAB 1(R3), RO : : 2 
50 57 C4 00094 MULL R ; 3 2 
6044 9F 00097 PUSHAB (RO)CR4] : 3 
Oc AE 9F O009A PUSHAB STRING_DESC : 2510 32 
56 DD 0009D PUSHL R6 > 2511 : 2 
0000v CF 05 FB O009F CALLS #5, CENTER FRAME : : 
52 04 CO 000A4 ADDL2 #4. TOP_OFFSET > 2513) ; 2 
6E 0200 8F 3C 000A7 MOVZWL #512, STRING_DESC : 2518 | 34 
5E DD OOOAC PUSHL P : 2523 ae | 
04 AE 9F OOOAE PUSHAB STRING_DESC > 2522 | : 
01 DD 00081 PUSHL #1 > 2520 | : 2 
56 DD 00083 PUSHL R6 : | : 2 
0000v CF 04 FB 00085 CALLS #4, GET_JOB_DESCRIPTION : 3 
7E 53 52 C3 OO0BA SUBL3 TOP_OFFSET, BOTTOM_OFFSET, -(SP) : 2530) : 2 
0090 8F BB 0008 PUSHR = #*MZR4,R7> : 2528 | : 2 
OC AE 9F 000C PUSHAB STRING. DESC > 2527 | *| 
56 DD 000C5 PUSHL R6 : 2528. : 2 
O000v CF 05 FB 000C7 CALLS #5, RETURN FRAME_LENGTH : 3 2 
55 50 00 dooce MOVL RO, RET_LEN ; 32 
08 13 OOCF BLEG =-:‘1$ > 2532 | 3 2 
50 53 55 ¢3 00001 SUBL3 RET_LEN, BOTTOM OFFSET, RO > 2536 | : 2 
53 FF AO 9E 00005 MOVAB -1(RO), BOTTOM_OFFSET F 3 2 
55 DD 00009 18 PUSHL RET_LEN > 2542. : 2 
57 DD 90008 PUSH : 2541. : 2 
50 53 57 ¢5 000DD MULL3. -R7 BOTTOM_OFFSET, RO : 2539. : 3 

6044 9F O00E1 PUSHAB (RO)CR4] ; : 
Oc AE 9F OO0ES PUSHAB STRING_DESC : 3538 : ‘ 

56 DD O00E7 PUSHL R ; 2539 : 
0000v CF 05 FB OO0E9 CALLS #5, INSERT_FRAME ; : ‘ 

6E 0200 8F 3C OOOEE MoVZWe #512, STRING_DESC > 2547 | : 
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SEPARATE rint Symbiont == separation routines 18-5e p18 4 3 AX-11 Bliss -32 V4.0-7 Pp 4 SEP 
04-001 ILL “J06_ FLAG = Insert Information into the JOB 14-S 2 98: $3 3% PRTSMB. SRC} SEPARATE. b3 :2 a9e a) v04 
6344 F 1A9 PUSHAB (R3)CR4] 5 
0c E F 1AC PUSHAB STRING_DESC i 630, 
56 DD OO1AF PUSHL ys 3 2631. 
O000v CF 05 FB 00181 CALLS #5, INSERT_JOBNUMBER_BANNER : 
04 00186 5$: RET : 2636) 


; Routine Size: 439 bytes, Routine Base: CODE + O098F 
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SEPARATE Print Symbiont == separation routines | 16-Sep-1984 93:93:03 AX=11 Bliss-32 i sO-Th6 Page 35 oat 

V04-001 FILL_JOB_TRAILER = Insert Information into the 14-Sep-1984 22:32:26 PRTSMB.SRCJSEPARATE.B32;2 (17) v04 

'; 1706 637 1 &sbttl ‘FILL _JOB_TRAILER = Insert Information into the JOB Page' H 

}3 1707 638 1 !++ ; ; : 

,3 1708 639 1! Functional Description: . ! ; 
: a4 sect : This procedure controls all inserts required for the JOB Page. “ § 
: 1711 2642 1 ! Formal Parameters: : ¢ 
; Wie 2643 1! - Address of the SCB : @ 
: 171 2644 1! PAGE _RCF - Pointer to the Page (first byte) | 
3 1714 2645 1! PAGE _LENGTH - Length of Frame ; 2 
; 1715 2646 1! PAGE_WIDTH - Width of Frame 34 
; 1716 2647 1! ; 3 @ 
: 1717 2648 1! Implicit Inputs: B¢ 
; 1718 2649 1! none $4 
3; 1719 2650 1! 3 ¢ 
: 1720 2651 1°! Implicit Outputs: 3 
3 1721 2652 1! none Re 
: 1722 2653 1! a < 
3: 1723 2654 1 ! Returned Value: i¢ 
3 1724 2655 1! none i 
: 1725 e656 3 > - $< 
: 1726 2657 1! Side Effects: 34 
: 1727 2658 1! non 3 ¢ 
: 1728 2659 1 I= s< 
: 1729 2660 1 ROUTINE FILL_JOB_TRAILER ( a ¢ 
3; 1730 2661 1 SCB : REF $BBLOCK, $< 
> 1731 2662 1 PAGE_REF : REF PAGE_ARRAY, 3 
; 1732 2663 1 PAGE_WIDTH, a ¢ 
s W733 2664 1 PAGE _LENGTH a¢ 
3 1734 2665 1 : NOVALUE = 7 ¢ 
3: 1735 2666 2 BEGIN : i | 
: 1736 2667 2 g¢ 
3: 1737 2668 2 LITERAL K_MAX_BUFFER_SIZE = 512; $< 
: 1738 2669 2 $< 
3; 1739 2670 2 LOCAL 3 
; 1740 2671 2 RET_LEN VECTORC1], i ¢ 
3 1741 2672 2 RET WIDE VECTOR(1), 3¢ 
: 1742 2673 2 RIGAT_OFFSET, 3 ¢ 
3 1743 2674 2 FT_OFFSET , sé 
3: 1744 2675 2 TOP_OFFSET a 
> 1745 2676 2 BOTTOM_OFFSET, 32 
: 1746 2677 2 BUF FE : VECTOR (512,bytel, ! Assume max size 512 bytes. ie 
3 {St sore § STRING_DESC : VECTOR (2); ! Descriptor to current string : § 
; ire $680 § | Allocate the buffer for "GET_xxx"' Routines : § 
; 1751 268 STRING_DESCCSIZE] = ZALLOCATION(BUFFER); ! allocate for routines 3 ¢ 
: 1736 268 STRING_DESCCADDR) = BUFFER; ! init address 3 ¢ 
3; 175 2684 3 
3 1754 2685 ! Top of page : 
: 1755 2686 : : 
3; 1756 2687 TOP_OFFSET = 0; 34 
3; 1757 688 BOTTOM_OFFSET = .PAGE_LENGTH; B< 
; 1758 689 ‘ $< 
3; 1759 2690 ! insert the burst characters 
: 1760 2691 FILL_FRAME (.SC 
> 1761 269 g -SCBEPSM$B_JOB_BURST CHAR] 
> 1762 269 PAGE_REFCO>.TOP_OFFSET+2,.PAGE_WIDTHJ, .PAGE_WIDTH, 3); 

| 

| 

| 


cos — a — a 


! adjust & allow for spacing 
! includes the burst also... 
! two spaces... 

Bottom of page 


BOTTOM_OFFSET = .PAGE_LENGTH - 5; ! offset includes burst offset 
FILL_FRAME (.SCB 


-.SCBEPSM$B_JOB_BURST_CHAR], 
PAGE_REFCO>.BOTTOM_OFFSET,.PAGE_WIDTH], .PAGE_WIDTH,3); 


Oo 
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5 1763 694 = 
764 695 ! re-init 
re? $08 STRING_DESCCSIZE] = K_MAX_BUFFER_SIZE; ! reset buffer size 
767 GET_EOJ 
768 (.SCB 
1; 1769 STRING _DESCLO] ! Buffer descriptor 
3 1220 STRING-DESCLSIZEJ); i Returned Length 
ue RET_LENCO] = INSERT _NAME_BANNER ( 
77 .SCB> 
774 STRING DesCtS ize) ! eoj name_desc 
775 PAGE_REFCO,.TOP_OFFSET,.PAGE WIDTH], 
776 ! ref to frame 
777 -PAGE_WIDTH, ! max width Bann 
778 -BOTTOM_OFFSET - .TOP_OFFSET, 
779 ! frame size 
ree ar ! max hght Bann str 
ree i -RET_LENCO] GTR 0 
ree TOP_OFF SET = .TOP_OFFSET + -RET_LENCOJ + 2; 
786 
787 
788 
789 
790 
791 
792 
793 
794 
795 
796 
7 
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9 ! re-init 

" STRING_DESCCSIZE] = K_MAX_BUFFER_SIZE; ! reset buffer size 

799 ! Get the digital logo and output to page ... assume not greater than 
4} ! amount allocated.... truncation otherwise occurs 

802 GET_DIGITAL_LOGO 

803 (.SCB, ' SCB addr. : 

804 STRING_DESCL0OJ ' Buffer descriptor 

805 STRING-DESCLSIZE); i Returned Length 

807 CENTER_FRAME (.SCB, 

808 STRING DESCCOJ 

809 PAGE_REFCO, .BOTTOM_OFFSET+1,.PAGE_WIDTH], .PAGE_WIDTH, 1); 
811 

812 ! re-init 

ai? ° STRING_DESCCSIZE] = K_MAX_BUFFER_SIZE; ! reset buffer size 

815 74 GET_RULER_COARSE 

816 74 .SCB ' $CB addr. : 

817 74 STRING_DESCLO) ! Buffer descriptor 

818 24 STRING_DESCCSIZEJ); i Returned length 
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skate .bg 32 (17) 
SCROLL_FRAME (.SCB 
“STRING DESCLO4 
PAGE_REFCO, .BOTTOM_OFFSET+4,.PAGE_WIDTH], .PAGE_WIDTH, 1); 
SCROLL_FRAME (.SCB 
SDESCRIPTOR ('1234567890') 
PAGE_REFCO,.BOTTOM  OFFSETSS, .PAGE _WIDTH], .PAGE_WIDTH, 1); 


Create a sentence describing the current job. 


! re-init 
STRING_DESCCSIZE] = K_MAX_BUFFER_SIZE; 
weir cteamectenaat tat! ta 

(.SCB, 


reset buffer size 


' §CB addr. 
' Use past tense 
STRING_DESCLO] ! Buffer descriptor 
STRING ~DESCESI#E); i Returned Length 
RET_LENLOJ = RETURN, FRAME_LENGTH 
Bilis DESCLO], ' string ref. 
E_REFCO,0,.PAGE WIDTH, i ref to frame 
PPAcE UW WIDTH, is cols to fill 


-BOTTOM_OFFSET - .TOP_OFFSET); 
IF .RET_LENCO] GTR 0 
BOTTOM_OFFSET = .BOTTOM_OFFSET - (.RET -LENLO +1); 


ad at e allow for spacing 
efore inserting 


rows to fill 


SANS PEAS MMAIVVIVIWIVTI of 


AE WN SO OONAUE WN $0 ODNAU EWN SO OONOAUE WN "OO ONOUS WR 7. p> 


! insert the string delimited 
INSERT _FRAME eit 
STRING_DES scctol, iB ref. 
PAGE NREF EO. BOTTOM. OFFSET, .PAGE_ WIDTH 
' ref to frame 


PDA IT BB BE EE AAA WWN NANI ponononenony) 


REE SELSE ONS Se Ue APR SSE MER SEAN SS EONTS S 
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-PAGE WIDTH ' cols to fill 
-RET_CENLOJ); i rows to fill 
: User name 
RET_LENCO] = INSERT_NAME_ BANNER 

86 SCB_SIZE_(USER_NAME) ' user name desc 
86 PAGE_REFCO,.TOP_OFFSET, -PAGE WIDTH, 
86 7 ' ret to frame 
867 8 -PAGE _WID ' max width Bann 
868 99 "BOTTOM TOFFSET - TOP OFFSET, 
869 00 frame siz 
870 01 7); ! max hght str desired 
871 4 
1h 0 ' re-init 
87 04 iF .RET_LENCO) GTR O 
874 05 THEN 
875 06 TOP_OF FSET = .TOP_OFFSET + .RET_LENCO) + 2; 
876 07 : adjust & allow for spacing 


<u“ 
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“BOTTOM_OFFSET - .TOP_OFFSET); 
IF .RET_LENCO] GTR 0 
THEN 


ee tl ee et et ee ee ee ee ee a ee ed ed ed ed 

83s 
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AX-11 Bliss=32 Wire ods 
PRTSMB.SRCJSEPARATE .B32;2 


! reset buffer size 


' Buffer descriptor 
! Returned Length 


b name size 


to frame 
! max width Bann 


! “rame size 
! ax hght Bann str 


! adjust & allow for spacing 


right_offset and left_offset 
are positional offsets for 
a specific frame_length and 


range. 


reset buffer size 


SCB addr. 


Buffer descriptor 


Returned Length 


r insert (assume length of seven) 


K 1 
peanare rint Symbiont == separation routines 16-Sep-1 
4-001 ILL_JOB_TRAILER - Insert Information into the 14-Sep-1 
877 808 ' Job name 
878 809 ! ; 
879 810 ! re-init 
rt si] STRING_DESCCSIZE] = K_MAX_BUFFER_SIZE; 
Bes aE GET_JOB_NAME 
88 814 (.SCB 
884 815 STRING DESCEOI 
885 816 STRING-DESCLSIZE]); 
887 818 RET_LENCO] = INSERT_NAME_BANNER ( 
888 819 -SCB, 
889 82 STRING Descts Ize ! jo 
890 82 PAGE_REFCO,.TOP_OFFSET,.PAGE_WIDTHI, 
831 82 if 
892 82 -PAGE_WIDTH, ! 
893 82 -BOTTOM_OFFSET = .TOP_OFFSET, 
894 8 ' 
895 8 7); 
896 8 . 
897 8 ! re-init 
898 8 if .RET_LENCO] GTR O 
899 8 THEN 
4's ; TOP_OFF SET = .TOP_OFFSET + .RET_LENCO) + 2; 
902 8 Receipt box 
903 8 
8 
8 
8 
8 
8 
8 
8 
8 
8 
8 
8 
8 
8 
8 
8 


' string ref. 


! ref to frame 
' special width 
' rows to fill 


' string ref. 

: ref to frame 
' cols to fill 
! rows to fill 


2 
2 
2 
2 
2 
3 
3 
a 
3 
04 3 IGHT_OFFSET = .PAGE_WIDTH; 
3 EFT_OFFSET = 0; 
906 3 
907 3 
908 3 ' re-init 
909 4 STRING_DESCCSIZEJ = K_MAX_BUFFER_SIZE; 
911 4 GET_RECEIPT_BOX 
912 4 (.SCB, 
913 4 STRING_DESCLOJ 
914 4 STRING-DESCLSIZE)); 
916 47 ' Get the width needed fo 
917 48 RET_WIDECO] = RETURN_FRAME_WIDTH 
918 49 (.SCB, 
919 850 STRING_DESCCO], ' 
920 891 PAGE_REFCO,.TOP_OFFSET,.PAGE_WiDTH], 
922 He -RIGHT_OFFSET -.LEFT_OFFSET, 
923 854 8); 
924 855 
925 856 RET_LENCO] = RETURN_FRAME_LENGTH 
926 857 (.SCB, 
927 858 STRING Desclol 
928 859 PAGE _REFCO,0,.PAGE_WIDTH, 
929 860 
930 861 
931 86¢ 
932 86 
933 864 


Pa 58 
9°17) 


v4 
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1 
yma -- separation routines 18- -Sep-1984 t 98! ¢3: 93 VAX=11 Oh ieg- 36 Vi 0-236 Page 59 
JOB_TRAILER = Insert Information into the 14-Sep-1984 6 CPRTSMB.SRC E i2 (17) 
BOTTOM_OFFSET = .BOTTOM_OFFSET = (.RET ot FNC) + T33 
djust & allow for spacing 
efore inserting 
RIGHT_OFFSET = .RIGHT_OFFSET = .RET_WIDECO]; offset before inserting 


MOVE_FRAME (.SCB 
STRING_DESCLO) 


Prin 
FILL 
1934 865 
1935 866 
1936 867 
1937 2868 
1938 2869 § 
1939 2870 
1940 2871 string frame reference 
1941 387¢ PAGE NREF RIGHT OFFSET, .BOTTOM, OFFSET) PAGE. WIDTHJ, 
bo 287 T ref to frame 
194 2874 2 RET tERE SS}: ' width 
1944 2875 2 »RET_LENLO)); i rawe to fill 
1945 gece § 
1946 877 ' Get and insert the filename banner 
1947 2878 2 ! 
1948 2879 2 yen 
1949 2880 2 i_re-init ; 
1239 tt 3 STRING_DESCCSIZE] = K_MAX_BUFFER_SIZE; ! reset buffer size 
1952 att 2 INSERT_JOBNUMBER_ BANNER 
1953 2884 2 t= 
1954 2885 2 STRING DESCCOI, Buffer des 
1955 2886 2 PAGE NREFES LEFT “OFFSET, -BOTTOM _OF FSET, «PAGE *ioTH), 
1956 2887 2 ref to frame 
1957 2888 2 ~RIGHT wit ih ~LEFT_OFFSET, pd width Bann 
1958 2889 2 *BOTTO TOM_OFFSET = .TOP _OF FSET); i rows to fill 
1959 2890 2 
1960 2891 2! re-init 
1961 2892 2 STRING_DESCCSIZE] = K_MAX_BUFFER_SIZE; ! reset buffer size 
1962 2893 2 RIGHT_OFFSET = .PAGE_QIDTA; ! right_offset and Lleft_offset 
1963 2894 2 LEFT_OFFSET = 0; ! are positional offsets for 
1964 2895 2 i a specific frame _length and 
1965 2896 2 i range. 
1966 2897 2 
1967 2898 2! GET_ACCOUNTING_INFO 
1968 2899 2! - 
1969 2900 2! STRIN 6_ DES ' Buffer gepcrserer 
1970 2901 2 i STRING Peet ete): i Returned Length 
1971 02 § cs 
1972 2903 ' insert the string delimited 
1973 2904 2! INSERT_FRAME cB, 
1974 2905 2! STRING. DESCLO]. ' string ref. 
1975 2906 2! PAGE E PREF O. é.. -PAGE_WIDTHI, i ref to frame 
1976 2907 2! -PAGE_WIDTH ' cols to fill 
1977 908 2! 2); ' rows to fill 
1978 909 1 END; 
30 39 38 37 #36 35 34 33 32 31 00B46 P.AAF ASCII \1234567890\ z 
O000000A 00850 P.AAE: .LON 1 3 
00000000' 00854 ADDRESS P.AAF ; 


TRA R: 
one Seeee ERAN. “W "weg * ave R2,R3,R4,R5,R6, RT R8,R9,R10,R11 > 2660 
5B 0000v CF 9E 00002 MOVAB  INSERT_NAME_BANNER,- : 


=. 


3 | 


Hi 

SEPARATE Print Symbiont == separation routines 16-Sep AX-11 BL ss-32 V4.0-7 Pa 0 SEP 
v04-001 FILL.JOb. TRAILER - Insert Information into the 14-Sep 7138 98: 3: 83 PRTSMB.SRCJSEPARATE. Aa 32 9°49) v04 
E FDFC CE 9€ 00007 MOVAB 7319's ; | : 2 
E 0200 8F 3C 0000C MOVZWL #51 STRIN ; 2082 : 

04 AE 08 AE 5—E 00011 MOVAB BUFFER fine pe SESC+4 + 2683. ; 
52 04 0016 CLRL «TOP + 2687. 32 
53 10 aC DO 0001 MOVL § PAGE_LENGTH, BOTTOM_OFFSET : 2688 3 2 
03 DD 0001C PUSHL # + 2693. ; s 

57 0c AC DO O001g OVL PAGE_WIDTH, R7 : | ; 
57 DD 000 PUSHL : : 2 
54 08 AC DO 00024 MOVL - PAGE_REF : | : 2 
50 02 Ag 9E 00028 MOVAB 2(R (Re he : : 2 
50 57 C4 0002C MULL2 R7 : : 
6044 SF 000 F PUSHAB CRO) PROJ : | ; 3 

56 04 AC DO 00032 MOVL sta. R6 + 2692) ; 
7E 0246 C6 9A 00036 MOVZBL 678(R6), -(SP) + 2693. i 
56 DD at PUSHL 6 F s¢ 
0000v CF 05 FB 00030 CALLS #5, FILL_FRAME : 32 
6E 0200 8F 3¢ 0004¢ MOVZWL wie, STRING_DESC + 2696) : 2 
SE DD 0004 PUSHL + 2701. i 2 
04 AE 9F 00049 PUSHAB STRING. DESC : 2700 i 
56 DD 0004C PUSHL > 2699 : 2 
O000v CF 03 FB 00046 CALLS #3, GET_EOJ ; : 2 
07 DD 0005 PUSH ; 2706 | : 2 
7E 53 52 C3 00055 SUBL3 TOP_CFFSET, BOTTOM_OFFSET, -(SP) : 2709 32 
57 DD 00059 PUSH : 2708 32 
50 52 57 C5 00058 MULL3 R7, TOP_OFFSET, RO + 2706 i 2 
6044 SF 0005F PUSHAB (RO)CR4J : : 2 
10 AE 9F 00062 PUSHAB STRING_DESC + 2705) : 2 
56 DD 00065 PUSHL R6 3: 2706) :2 
68 06 FB 00067 CALLS #6, INSERT NAME _BANNER : s¢ 
55 50 DO 0006A MOVL RO, _LEN 3 s¢ 
05 15 0006D BLEO : 2713) 3 
52 02 A542 4 0006F MOVA\ 2 (RET Leutter OFFSET], TOP_OFFSET : 2715 | 3 
53 10 AC 05 C3 00074 1$: SUBL3 #5, PAGE_LENGTA, BOTTOM_OFFSET > 2721 : 2 
03 DD 00079 PUSHL #3 > 2725 | 3 
57 DD 0007B PUSHL 7 : 32 
50 53 57 cS 0007D MULL3. R7, BOTTOM_OFFSET, RO : 3 
6044 9F 00081 PUSHAB (RO)CR4) : : 2 
7E 0206 C6 9A 00084 MOVZBL 678(R6), =(SP) : | i 
56 DD 00089 PUSHL RS 3 ie 
0000v CF 05 FB 00088 CALLS FILL_FRAME ; 3 
6E 0200 8F 3C 00090 MOVZWL Wiz. STRING DESC ; 2728) 3@ 
5E DD 00095 PUSHL SP : 2736) 32 
04 AE 9F 00097 PUSHAB STRING_DESC > 2735 | 32 
36 DD 0009A PUSHL Re > 2734, 3 3 

0000v CF 03 FB 0009C CALLS GET_DIGITAL_LOGO F : 
04 DD O00A1 PUSHL #1 > 2740 | #3 
7 DD O000A3 PUSHL R7 3 s¢ 
50 01 A3 9E 900A) OVAB 1(R3), RO F : é 

50 57 C4 000A9 MULL2 R7, RO ; : 
6044 9F OOOAC PUSHAB (RO)CR4) : 32 
OC AE OF OO0AE PUSHAB sTRI NG_DESC : 2739. 32 

56 DD 00082 PUSHL Ro : 2740 | : 

0000v CF 5 FB 000B4 ALLS #5, CENTER FRAME : : 

6E = 0200 BE 3 0089 MoVZwL #512, STRING_DESC i 3744 2 

—E DD 000B PUSHL #3 > 2749 : 

04 AE 9F 000C PUSHAB STRING_DESC ; 3748 : 
56 DD 000C¢ PUSHL R > 2747 > 2 

| 
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CODE + 0858 


554 bytes, Routine Base: 


; Routine Size: 


. 
SEPARATE Print 2 ah -- separation routines 1$- -Sep- ape 98: ¢3: 3 AX-11 Bliss-32 V4.0-74 Page $3) 
v04-001 FILL_JOB_TRAILER = Insert Information into the 14-Sep- 2:26 PRTSMB.S Reis SEPARATE .B32;2 (17) 


D 2 
SEPARATE Print Symbiont -= separation routines 16-$ AX-11 Bliss-32 V4.0-74 Page 64 SEP 
v04-001 FILL “FILE TRAILER = Insert Information into the 14- ~g0P7} 38% 95: 3: 93 PRTSMB.SRCJSEPARATE.B 633;2 . 8} v04 
; 1980 910 1 Xsbttl "FILL_FILE_TRAILER - Insert Information into the FILE Page’ 2 2 
; 1981 gait 1 le¢ 9 3 
: 1982 2912 1 i Functional Description: ; 
: st seiz : This procedure controls all inserts required for the FILE Page. : $ 
: 1985 2915 1 |! Formal Parameters: 3 
3 1986 2916 1! - Address of the SCB :@ 
> 1987 e917 1! PAGE _REF - Pointer to, the Page (first byte) 3 
: 1988 2918 1! PAGE_LENGTH - Length of Frame $¢ 
3; 1989 e919 1! PAGE_WIDTH - Width of Frame $¢ 
: 1990 2920 1! 3 ¢ 
; 1991 2921 1! Implicit Inputs: : § 
; 1992 e9e2 1! none 3 
: 1993 2923 1! s< 
: 1994 2924 1 | Implicit Outputs: s< 
3; 1995 2925 1! none s<¢€ 
3; 1996 2926 1! s<¢ 
3 1997 2927 1 ! Returned Value: ie 
3; 1998 2928 1! non $< 
: 1999 2929 1 i 3 
; 2000 2930 1 ! Side Effects: t¢ 
: 2001 2931 1! non i 
; 2002 2932 +1 i-- 34 
; 2003 2933 1 ROUTINE FILL_FILE_TRAILER ( 3 ¢ 
3; 2004 2934 1 4 B : REF $BBLOCK, 3 < 
; 2005 2935 (1 PAGE_REF : REF PAGE_ARRAY, 3 ¢ 
: 2006 2936 1 PAGE_WIDTH, a ¢ 
: 2007 2937 1 PAGE “LENGTH $< 
: 2008 2938 1 VALUE = s¢ 
3; 2009 2939 2 BEGIN 3 ¢ 
; 2010 2940 2 g¢ 
; 2011 2941 2 LITERAL K_MAX_BUFFER_SIZE = 512; g ¢ 
: 2012 2942 2 S¢ 
3; 2013 2943 2 LOCAL 3 ¢ 
3 2014 2944 2 FORCE_LEN 3 4 
: 2015 2945 2 RET “LEN : VECTORE1), a ¢ 
; 2016 2946 2 TOP_OFFS a | 
3; 2017 2947 2 BOTTON _OFFSET, s¢ 
3 2018 2948 2 BUFFER : VECTOR (512,bytel, ' Assume max size 512 bytes | 
3 sith a4 § STRING_DESC : VECTOR (2); ' Descriptor to current string ; § 
3 goet $321 é Allocate the buffer for "'GET_xxx'’ Routines : § 
: 2023 2953 ‘3 STRING_DESCCSIZE] = XALLOCATION(BUFFER); ! allocate for routines : § 
3; 2024 2954 STRING_DESCLADDR) = BUFFER; ! init address : 
3; 2025 2955 2 $< 
3: 2026 2956 2 a¢ 
3 2027 2957 2! Top of page : 2 
: 2028 2958 2 | $¢ 
3; 2029 2959 2 TOP_OFFSET = 0; <4 
3; 2030 2960 2 BOTTOM_ OFFSET = -PAGE_LENGTH; a4 
; 2031 2961 § 34 
; 2032 296 FILL_FRAME (. th 
; 2033 2963 2 CBEPSM$B_FILE_BURST_ CHAR], 
; $oee Soce 2 PAGE "REF OT 10 OP"OFFSET+2,. PAGE_WIDTH], .PAGE_WIDTH, 3); 
; 5086 966 g FILL_FRAME (.SCB, 


| 
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2 
Print Symbiont <== separation routines 1hes6 1984 23:03 AX-11 Bliss-32 V4.0-74 Page 65 
FILL-FILE.TR TRAILER = Insert Information into the 12286871984 95:93:98 PRTSMB.SRCJSEPARATE. §35;2 . (18) 
967 | iF 
2368 PAGE _REFC10,.TOP_OFFSET+2,.PAGE_WIDTH], .PAGE_WIDTH=-20, 3); 
2970 FILL_FRAME (.SCB 
2971 ; 3 ScBLPSMSB JOB_BURST CHAR]. 
$ai6 ¢ E_REFC13, .TOP_OFFSET+2,.PAGE_WIDTH], .PAGE_WIDTH=26, 3); 
sare 5 ' re-init 
$352 $ STRING_DESCCSIZE] = K_MAX_BUFFER_SIZE; ! reset buffer size 
2977 2 GET_EOF c. ate 
2978 § STRING_DES Seto) ' Buffer descriptor 
4h § STRING_ DES CESI2ZE)); i Returned Length 
2981 2 RET_LENCO] = INSERT_NAME_BANNER ( 
2982 2 .SCB, 
2985 2 STRING DESCCSIZEI, file name desc 
2984 2 PAGE JREFCO, . TOP_OF FSET, .PAGE WIDTH), 
2985 2 ' ret to frame 
2986 2 -PAGE _WIDT ! max width Bann , 
2987 2 “BOTTOM TOFFSET - .TOP -OFFSET, 
2988 2 ' frame size 
2989 2 7); ! max hght Bann str 
2990 2 
2991 2 ' Adust for the burst characters too 
2992 2 IF .RET_LENCO) GTR OG 
2993 2 HEN 
2994 2 TOP_OFFSET = .TOP_OFFSET + .RET_LENCOJ + 2; 
2995 2 ' adjust & allow for + ities 
345 § ' allow for two spaces. 
$44 § Bottom of page - Bottom_offset already adjusted 
3000 : BOTTOM_OFFSET = .PAGE_LENGTH - 5; ! offset includes burst offset 
300 2 FILL_FRAME (.SCB 
3008 2 -SCBEPSM$B_FILE_BURST_ CHAR], 
Hi § PAGE_REF (CO; .BOTTOM TOFFSET. PAGE -WIDTH], .PAGE_WIDTH, 3); 
3006 3 FILL_FRAME (.SCB, 
3008 : PAGE_REFC10,.BOTTOM_OFFSET,.PAGE_WIDTH], .PAGE_WIDTH=20, 3); 
3010 § FILL_FRAME (.SCB ! Offset set... Add the diff 
3011 - SCBEPSM$B_JOB_BURST_CHAR], 
3018 2 PAGE REFC1%, .BOTTOM_ OFFSET, .PAGE -WIDTH], .PAGE_WIDTH-28, 3); 
3014 § ! re-init 
Ha § STRING_DESCCSIZE] = K_MAX_BUFFER_SIZE; ' reset buffer size 
3017 2 Get the sys$announce note and output to page 
3018 § éeT "DIGITAL: GO 
019 ree ' $CB addr. 
020 2 STRING scp) ' Buffer depcriptor 
5052 : STRING. DES S12E}); i Returned Length 
023 2 


! assume string will not over run the area... fail_safe is truncation 


Boo RAN AS ee ey ee NE eo MS Sage oe ee * : gg 


Se 
SEPARATE t Symbiont -- separation routines 16-Sep-1984 02:23:03 AX-11 Bliss-32 V4.0-74 Pp SEP 
04-001 TETLE TRAILER = "Ensert Infortacion into the Je-senctons SoeS3 ice Lon reme sae Ssebannte oss-2 age 489 (v04 
2094 CENTER_FRAME (.SCB : 
095 STRING DESCLO 
096 PAGE_REFCO, .BOTTOM_OFFSET+1,.PAGE_WIDTH), 
2097 .PAGE_WIDTH, 1); 


ovo 


! re-init 
STRING_DESCCSIZE] = K_MAX_BUFFER_SIZE; 


GET_RULER_COARSE 
(.SCB 
STRING_DESCEO 

STRING_DESCLSIZE]); 

SCROLL_FRAME (.SCB 

STRING DESCLO), 
PAGE_REFLO, .BOTTOM_OFFSET + 4, 


SCROLL_FRAME (.SCB, 
$DESCRIPTOR ('1234567890'), 
PAGE_REFCO,.BOTTOM_OFFSET + 5, 


Create a sentence describing the current job. 


reset buffer size 


SCB addr. 
Buffer descriptor 
Returned length 


em 


-PAGE_WIDTH], .PAGE_WIDTH, 1); 


.PAGE_WIDTH], .PAGE_WIDTH, 1); 


' re-init 
STRING_DESCCSIZE] = K_MAX_BUFFER_SIZE; 
sachitatcncacoies in 4 


4 . 


reset buffer size 


SCB addr. 
Use past tense 


STRING_DESCCO] Buffer descriptor 


STRING-DESCLSIZEJ); 
RET_LENCO] = RETURN_FRAME_LENGTH 


.SCB, 

STRING_DESCCOJ, 

PAGE _REFCO,0,.PAGE_WIDTH), 
-PAGE WIDTH, 

-BOTTOM_OFFSET - .TOP_OFFSET); 


Returned Length 


string ref. 

ref to frame 
cols to fill 
rows to fill 


IF ,RET_LENCOJ GTR 0 
BOTTOM_OFFSET = .BOTTOM_OFFSET - (.RET_LENCO] + 1); 
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7 : aavust & allow for spacing 
8 ; : , g efore inserting 
9 ! insert the string delimited 

070 INSERT_FRAME (.SCB, 

071 STRING 42 yee}: ; pir ing ref. 

072 PAGE_REFCO, .BOTTOM_OFFSET, .PAGE_WIDTHI, 

07 ! ref to frame 

074 »PAGE WIDTH ! cols to fill 

075 -RET_CENLOJ5; i rows to fill 

076 

077 

O58 1 Create a sentence describing the current file. 

080 ! re-init 


Ba Be Oe Se Be Be Se Sa Se Be Ge Be Se Se Se Be Se Se Se Se Fe Se Se Se Se Se Be Se Se we Se Se Fe Fe Se Se Sse Se Se Se Se See Se Se Se Se Se Se Se Se Seas Se Beace 
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| SEPARATE 
v04-001 
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rint yebiont -- separation routines 18-s6p-1984 95:93:93 AX-11 Bliss-32 Vie On 238 Page 67 
ILL_FILE_TRAILER = Insert Information into the 14-Sep-1984 22:52:26 PRTSMB.SRCJSEPARATE.B32;2 (18) 
081 STRING_DESCCSIZE] = K_MAX_BUFFER_SIZE; ! reset buffer size 
GET_FILE_DESCRIPTION 
.SCB, ! $CB addr. . 
See De SeheT ' Buffer descriptor 
STRING_DESCLSIZEJ); i Returned Length 
RET_LENCO) = RETURN. FRAME_LENGTH 
STRING DESCCOI, ! string ref. 
PAGE REFCO,0,.PAGE_WIDTHI, i ref to frame 
-PAGE_WIDTH ' cols to fill 


-BOTTOM_OFFSET - .TOP_OFFSET);! rows to fill 
IF .RET_LENCO] GTR 0 
THEN 


BOTTOM_OFFSET = .BOTTOM_OFFSET = (.RET_LENCO) + 1); 
! vay & allow for spacing 
, 3 Ay ; efore inserting 
! insert the string delimited 
INSERT_FRAME (.SCB, 
STRING _DESC(O], ! per ine ref. 
PAGE_REFCO,.BOTTOM_OFFSET, .PAGE_WIDTHJ, 
! ref to frame 
«PAGE WIDTH ! cols to fill 
~RET_CENCOJS; i rows to fill 


User name banner 
RET_LENCO] = INSERT_NAME_BANNER ( 
§CB SIZE (USER_NAME) ' user name desc 


PAGE_REFCO,.TOP_OFFSET, .PAGE_WIDTHJ, 
' ref to frame 


-PAGE_WIDTH, ! max width Bann 
-BOTTOM_OFFSET - .TOP_OFFSET, 
' frame size 
7); ! max hght Bann str 
i oRET LENCO) GTR 0 
TOP_OFF SET = .TOP_OFFSET + .RET_LEN[O] + 2; 3 
' adjust & allow for spacing 
: Get and insert the filename banner ... force the banner to be small (always) 
"1 pe-init 
STRING_DESCCSIZE] = K_MAX_BUFFER_SIZE; ! reset buffer size 
FORCE_LEN 


IF “BOT TOM_oF ser - .TOP_OFFSET LSS .FORCE_LEN 
FORCE_LEN = .BOTTOM_OFFSET - .TOP_OFFSET; 
RET_LENCO] = INSERT_FILENAME_BANNER 
STRING_DESCCO), ! file name size 
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SEPARATE Print Symbiont == separation routines 16-Sep-1984 02:23:03 AX-11 Bliss-32 V4.0-74 Page 68 
y04-001 FILL_FILE. TRAILER - Insert Information into the 12288-1382 95:93:93 LPRTSMB SRE SepAMATE .039;2 ° 85 
; 2208 138 PAGE_REFCO,.TOP_OFFSET,.PAGE_WIDTHJ, 

: ; 09 135 ~ ! ref to frame 

: 2210 140 «PAGE WIDTH, ! max width Bann 

> 2011 141 -FORCE_LEN); 

$ ssi¢ 3128 ! max hght Bann str 
; $1 14 IF .RET_LENCOJ GTR O 

> 2214 3144 THEN 

; 2215 3145 TOP_OFFSET = .TOP_OFFSET + .RET_LENCO) + 2; 

3 §sig $128 5 ! adjust & allow for spacing 
: 2218 3148 2! Create a phrase which includes all the appropriate qualifiers 

3 5538 $133 § describing the current print and insert from the bottom without spacing. 
: 2221 3151 2! re-init 

3 2222 $126 2 STRING_DESCCSIZE] = K_MAX_BUFFER_SIZE; ! reset buffer size 
>; 2225 s133 2 

> 2224 3154 2 GET_QUALIFIERS 

3; 2225 3155 2 (.SCB, ' $CB addr. . 

3 2226 3156 2 STRING_DESC(OJ ! Buffer descriptor 
; gee? 3137 : STRING_DESCLSIZE)); i Returned Length 

3 2209 3159 2 RET_LENCO] = RETURN_FRAME_LENGTH 

: 2230 3160 2 (.SCB, 

3 ¢es) 3161 2 STRING_DESCCO), ! string ref. 

2 dese 3162 2 PAGE _REF(CO,0,.PAGE_WIDTHI, ! ref to frame 

: 2233 3163 2 PAGE _WIDTH-{2, ! less twelve chars. 
> 2234 3164 2 -BOTTOM_OFFSET = .TOP_OFFSET);! rows to fill 

: 2235 3165 2 

3; 2236 3166 2 IF .RET_LENCOJ GTR O 

3: 2237 3167 2 THEN 

; 2238 3168 3 BEGIN 

: 2239 3169 3 BOTTOM_OFFSET = .BOTTOM_OFFSET - (.RET_LENCO] + 1); 

> 2240 3170 3 : otpust & allow for spacing 
3: 2241 3171 3 ! efore inserting 
> 2242 3172 3 x Ee 

3 2243 3173 3 ! move the string undelimited 

> 2264 3174 3 MOVE_FRAME (.SCB, er 

s e545 3175 3 SDESCRIPTOR (Qualifiers: '), 

3 2240 3176 3 PAGE_REFCO,..BOTTOM_OFFSET,.PAGE_WIDTHI, 

; 2247 3177 3 '"ref to frame 

: 2248 3178 3 -PAGE WIDTH ' cols to fill 

> 2249 3179 3 -RET_CENCOJ); i rows to fill 

: 2250 3180 2 END; 

$ $52) 318 2 ‘ ; age 

3; 2252 182 2 ! insert the string delimited 

> 2253 3183 INSERT_FRAME (.SCB, 

3: 2254 3184 STRING DESCCO), : oie ref. 

: 2255 3185 2 PAGE_REFC12,.BOTTOM_OFFSET,.PAGE_WIDTH) 

: 2256 3186 2 ' Fef to frame 

3: 2257 3187 2 PAGE _WIDTH-12, ' cols to fill 

; 2258 3188 2 -RET_CENCOJ); ! rows to fill 

3: 2259 3189 2 

; 2260 190 1 END; 


30 39 38 37 36 35 34 33 32 31 O0D82 P.AAH: .ASCII \1234567890\ : 


tase ile: dla 2 AOS Wil yea Ai seo Oe A eed oa OT — 
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SEPARATE Print §$ ae ont == separation routines 1b 3:03 AX-11 Bliss-32 V4.0-74 
v04-001 FILL_FILE_TRAILER = Insert Information into the 14- ~300n 138i 98: $3 % PATSMB SREISEPARATE .03552 — 8} 
Os OD8C P.AAG: .LONG 10 ; 
0000000" 9 «ADDRESS P.AAH ; 
20 3A 73 72 65 69 66 69 6C 61 9 of 00094 P.AAJ: .ASCII \Qualifiers: \ ; 
QO000000C QOODAO P.AAI: .LONG 12 : 
00000000' OODA4 ADDRESS P.AAJ : 


OFFC 00000 FILL_FILE Lf 
.QORD 


ave R2 R3, R4,R5S,R6,R7,RB,RI,R10,R11 : 2933 
58 0000v CF 9E 0000 MOVAB INSERT. FRA 14 : 
SA 000v CF 9E 9000 MOVAB RETURN@ FRAME LENGTH, R10 : 
59 O00V CF 9E 0000¢ MOVAB FILL FRAME, RO : 
SE FDFC CE 9€ 00011 MOVAB =516TSP) : 
7E 0200 8F 3C 00016 MOVZWL #512, STRING + 2953 
04 AE 08 AE 9E 0001B MOVAB BUFFER FER, cSTRIRG. DESC #4 > 2954 
52 D4 00020 CLRL + 2959 
53 10 AC DO 00022 MOVL PAGES ost BOTTOM_OFFSET + 2960 
03 DD 00026 PUSHL # + 2964 
56 0c AC DO 00028 MOVL  PAGE_WIDTH, R6 : 
56 DD 0002C PUSHL : 
54 08 AC DO 0002E MOVL — PAGE_REF : 
55 02 A2 9E 00032 MOVAB 2(R2J, RS : 
55 56 C4 00036 MULL2 6, R : 
6544 9F 00039 PUSHAB (R5)CR4] : 
58 0. “AC DO 0003¢ MOVL  SCB, R8 > 2963 
7E 0244 CB 9A 00040 MOVZBL 676(R8), -(SP) > 2964 
58 DD 00045 PUSHL R : 
69 05 FB 00047 CALLS #5, FILL_FRAME : 
03 DD O004A PUSHL #3 : 2968 
EC AS 9F 0004C PUSHAB -20(R6) : 
OA A544 OF O004F PUSHAB 10(R5)CR4J : 
20 DD 00053 PUSHL #32 : 
58 DD 00055 PUSHL RB : 
69 05 FB 00057 CALLS #5, FILL_FRAME : | 
03 DD 0005A PUSHL #3 > 2972. 
6 Ad 9F 0005C PUSHAB -26(R6) : 
OD AS44 9F 0005F PUSHAB 13(R5)(R4 : | 
7E 02A6 C8 9A 00063 MOVZBL 678(R8), -(SP) : 
58 DD 00068 PUSHL R8 : 
69 05 FB OO06A CALLS #5, FILL_FRAME : 
6E 0200 8F 3C 0006D MOVZ2WL #512, STRING DESC : 2975 
SE DD 00072 PUSHL #4 > 2979. 
04 AF OF 90074 PUSHAB STRING_DESC : 2978 
58 0D 00077 PUSHL R : 2977 
0000v CF 03 FB 00079 CALLS #3, GET_EOF : 
07 DD 0007E PUSHL #7 > 2984 
7E 53 52 €3 00080 SUBL3 TOP_OFFSET, BOTTOM_OFFSET, -(SP) : 2987 | 
56 DD 00084 PUSH : 2986 
55 52 56 «(C5 00086 MULL3 6, TOP_OFFSET, RS > 2984. 
6544 9F OO00BA PUSHAB (R5)CR47 F 
10 AE OF 00080 PUSHAB STRING_DESC : 2983 | 
58 DD 00090 PUSHL RB > 2984 
0000v CF 06 FB 00092 CALLS #6, INSERT_NAME_BANNER : 
57 DO 0009 MOVL RO. RET_LEN : 
05 15 O009A BLEQ =«-:'1$ > 2992 
52 02 A742 9E 0009C MOVAB 2(RET_LEN)CTOP_OFFSETJ, TOP_OFFSET > 2994 


_o 
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SEPARATE Print Symbiont == separation routines 16 1984 AX=-11 Bliss-32 v4. SEP 
vate FILL “FILE TRAILER = Insert Information into the 14 ars ri 95: 3: 93 YORTSMB HL PEP ae B32;2 Page ft v06 
53 10 Ac 05 C3 000A1 1$: SUBL3 #5, PAGE_LENGTH, BOTTOM_OFFSET : 3000 : 
3 pd DOA PUSHL n° : 3000 ; 5 
é Dp OA pUSHL Rb : : 2 
55 53 6 § OOAA MULL3 6 BOTTOM. OFFSET, RS : : 2 
6544 OF DOOAE PUSHAB (R5) : ; 
7E 02A4 C8 9a 000B1 MOVZBL 676(R8), -(SP) : : 
DD 00086 USHL RB : ; 
69 0S FB 00088 CALLS #5, FILL_FRAME : : 2 
03 DD 00088 PUSHL #3 : 3008 : 
EC Ad 9F O00BD PUSHAB =20(R6) : : 2 
OA A544 9F 000CO PUSHAB 10(R5)CR4J : : 2 
20 DD 000¢4 PUSHL #32 : : 2 
8 DD 0006 PUSHL RB : : 2 
69 0S FB 000C8 CALLS #5, FILL_FRAME : : 2 
03 DD 000CB PUSHL #3 + 3012 : 2 
E4 Ad 9F OO00CD PUSHAB =28(R6) : | : 
OE A544 9F 00000 PUSHAB 14(R5)(R4J : : 2 
7E 02A6 CB 9A 00004 MOVZBL 678(R8), =(SP) : | : 2 
58 DD 00009 PUSHL RB : | 32 
69 05 FB 000DB CALLS #5, FILL_FRAME : | 3 
6E 0200 8F 3C OOODE MOVZ2WL #512, STRING_DESC > 3015 : 2 
5E DD 000E3 PUSHL SP : 3021. : 2 
04 AE 9F O00E5S PUSHAB STRING_DESC : 3020) : 2 
58 DD 000E8 PUSHL : 3019) : 2 
0000v CF 03 FB OOOEA CALLS #3, GET_DIGITAL_LOGO : i 2 
01 DD OOOEF PUSHL #1 : 3026) : 2 
56 DD O00F1 PUSHL  R6 : 3027. 3 2 
55 01 A3 9E 000F3 MOVAB 1(R3), R5 : 3026 : 2 
55 56 C4 000F7 MULL2 R6, R : : 2 
6544 SF OOOFA PUSHAB (R5)(R4] ; | 
OC AE 9F OO0FD PUSHAB STRING_DESC : 3025. 
58 DD 00100 PUSHL : 3026. 
0000v CF 05 FB 00102 CALLS #5, CENTER_FRAME : 
6E 0200 8F %3C 00107 MOV2WL #512, STRING_DESC : 3031) 
5E DD 0010C PUSHL SP : 3036) 
04 AE 9F 0010E PUSHAB STRING_DESC : 3035, 
58 DD 00111 PUSHL R : 3034) 
0000v CF 03 FB 00113 CALLS #3, GET_RULER_COARSE : | 
01 DD 00118 PUSHL #1 : 3040 
56 DD OO11A PUSHL R6 ; 
55 04 A3 9E OU11C OV 4(R3), RS ; 
55 56 C4 00120 MULL2 F 
6544 OF 00123 PUSHAB (R5)(R4] ; 
0c AE OF 00126 PUSHAB STRING_DESC : 3039 
58 DD 00129 PUSHL : 3040 
0000v CF 05 FB 0012B CALLS #5, SCROLL_FRAME ; 
01 DD 00130 PUSHL #1 + 3044 
56 DD 00132 PUSHL R6 : 
55 05 A3 9E 00134 OVAB 5(R3), R5 : 
55 56 C4 01 8 MULL2 6, R5 : 
6544 9F 00138 PUSHAB (R5)CR4) : 
FEA2 CF 9F 0013€ PUSHAB P.AAG > 3043 
58 DD 00142 PUSHL Rg > 3044 
0000v CF 05 FB 00144 CALLS #5, SCROLL_FRAME : 
6E 0200 i 3C 09149 MOVZWL ste, STRING_DESC > 3049 
E DD O14E PUSHL : 3055 
04 AE 9F 0015 PUSHAB STRING. DESC : 3054 
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1 
RAME_LENGTH = Returns the Frame Length 14-Sep-1984 PRTSMB.SRCJSEPARATE .B32;2 (19) 
Rsbttl "RETURN_FRAME_LENGTH = Returns the Frame Length for String Insertion’ 


! Functional Description: 

Returns the frame en +g needed to insert the string into the page. 
This routine checks the top_of_frame/bottom_of_frame offsets and 
decides if the string will Fit= : 
1) yes = return number of frame rows required for string to fit. 
2) no = return zero 


P 
4 


—+—. 
om | 
Deo 


Se ee Se Se ee Be Seas ee tee 
MOPIPOPOPoPUNIroPoron) 


Formal Parameters: 


- Address of the SCB 
STR DESC - Descriptor of att ra to Insert 
FRAME _PTR - Address of first byte of Frame 
FRAME _LENGTH - Length of Frame 36 
FRAME WIDTH - Width of Frame 


Implicit Inputs: 
non 


6D 


Implicit Outputs: 6E 


none 
Returned Value: 
1 non 
1 
1 


Side Effects: 
non 


ROUTINE RETURN_FRAME_LENGTH 


T 
WIDTH 5 ' Number of Columns 


FRAME — 
FRAME LENGTH ! Number of Rows 


+4 BEGIN | 
0 LOCAL MAX_CHARS; 

0 ' don't even try if there is no frame left 

0 IF (.FRAME_LENGTH LEQ 0) OR 

0 (. FRAME WIDTH ufo 0) OR 

. IZEJ EQL 0) 

0 


RETURN 0; 
MAX_CHARS = .FRAME_WIDTH * .FRAME_LENGTH; 


! The boundary condition of string size of some multiple of frame width | 
! can occur = add one less than the frame width to overcome this condition 


STR_DESCCSIZE] LEQ .MAX_CHARS 
RETURN ((.STR_DESC[SIZE]+(.FRAME_WIDTH=1)) / .FRAME_WIDTH); 
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§ THEN 
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SEPARATE Print Symbiont == separation routines 16-Sep-1984 02:23:03 AX=-11 Bliss-32 V4.0-74 Pp 74 SEP 
She e001 RETURN. FRAME. LENGTH : Returns the Frame Length 127808- 1382 95:43:93 PRTSMB.SRC SEeAMATE 63552 age 419) ve 
3 $313 48 ! otherwise it just won't fit 
: § $9 49 RETURN 0; 
3; 2321 50 
: 2322 3251 1 END; 


| 0000 00000 RETURN_FRAME_LENGTH: 
WORB Save nothin 


WO ; 1 
14 ag D5 90002 TSTL FRAME_LENGT : 3) 
23 15 0000 BLEQ ; 
10 AC 05 00007 TSTL FRAME_WIDTH 3 3234) 
1€ 15 QOO0A BLEQ 1 : 
08 BC 05 0000C TSTL aSTR_DESC 3 3235) 
19 13 O000F BEQL 1$ 3 
50 10 Ac 14 AC C5 00011 MULL3 FRAME_LENGTH, FRAME_WIDTH, MAX_CHARS 3 3239) 
50 08 BC D1 00017 CMPL @STR_BESC, MAX_CHARS : 3244 
OD 14 0001B BGTR 1$ 3 
50 08 BC 10 AC C1 0001D ADDL3 FRAME_WIDTH, @STR_DESC, RO : 3246 
50 D7 00023 DECL RO 3 
50 10 AC C6 00025 DIVL2 FRAME_WIDTH, RO 3 
04 00029 RET : 
50 D4 O002A 1$: CLRL RO : 
04 0002C RET : 


; Routine Size: 45 bytes, Routine Base: CODE + 1023 
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Sep-1984 29:82:26 


AX-11 Bliss-32 V 
PRTSMB.SRCJSEPAR 


Returns the frame width needed to insert the required lengths into 
This routine tie iby only a prescribed value an 


Assumes the FRAME_LENGTH is constant. (How many lengths are needed 


of Frame 


A 
' Number of Columns 
' Number of Rows 


! string wont fit 


! The boundary condition of string size of some multiple of frame width 


B 

“SEPARATE Print iy gs == separation routines 16-S 
v04-001 RETURN_FRAME_WIDTH = Returns the Frame Length f 14- 
; $3se 3526 ! Rsbttl "RETURN_FRAME_WIDTH = Returns the Frame Length for String Insertion’ 
: 2396 3254 1 | Functional Description: 

; 2327 »> i 

: $96 $529 1 the page, J 

2 - $3 a SY decides if the string will fit 

: 2350 i Pe. Return value - frame width 

; 2331 59 1! Return zero = only if no Length or width of frame. 
; 2332 3260 1! 

; 2335 3261 1! to fit this string) 

3: 2334 $06 1 } 

3 See? 263 1 ! Formal Parameters: 

> 2336 264 1! - Address of the SCB 
3 2337 3265 1! STR_DESC - Descriptor of Bering to Insert 
; 2338 3266 1! FRAME _PTR - Address of first byte 
; 2339 3267 1! FRAME LENGTH - Length of Frame 

3 2340 3268 1 ! FRAME _WIDTH - Width of Frame 

3 2341 3269 1! 

3 2342 3270 1! 

: 2343 3271 1 ! Implicit Inputs: 

3 2344 3272 1! none 

3: 2345 3273 1! 

3: 2346 3274 1°! Implicit Outputs: 

3: 2347 3275 1! none 

3: 2348 3276 1! 

3 2349 3277 1 ! Returned Value: 

; 2350 3278 1! non 

; 2351 "te ge ES eee 

5 gs0e 3280 1 ! Side Effects: 

; 2353 3281 1! non 

> 2354 3282 1 !<- 

> 2355 3283 1 ROUTINE RETURN_FRAME_WIDTH ( 

3; 2356 3284 1 $CB : REF $BBLOCK 

> 2357 3285 1 STR_DESC : REF VECTORL2), 

; 2358 3286 1 FRAME _PTR : REF PAGE_ARRAY 

; 2359 3287 1 FRAME WIDTH - 

: 2360 3288 1 FRAME _LENGTH 

: 2361 3289 1 s 

; 2362 3290 2 BEGIN 

3: 2363 $59; ¢ 

3 2364 292 LOCAL 

3; 2365 3293 § MAX_CHARS, 

> 2366 3294 TEMP_WIDE: 

; tot $532 § 

: 2368 296 ' don't even try if there is no frame left 

; 2369 3297 2 IF (.FRAME_LENGTH LEQ Q) OR 

3; 2370 3298 4 (FRAME WIDTH f° 0) OR 

2 $33) 4 (.STR_DESCCSIZE EQL 0) 

2 3/6 ; 00 THEN 

: $3 301 RETURN 0; 

3: 2374 308 

> 2375 30 MAX_CHARS = .FRAME_WIDTH * ,FRAME_LENGTH; 

: 2376 304 IF .MAX_CHARS LSS .STR_DESCCSIZEJ 

3 2377 305 THEN 

; 2378 306 RETURN 0; 

3; 2379 307 

; 2380 308 
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; 338 
: 8 


Pee Oe eae Se ee Se ee tease 
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OOO C0000 0000 
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; Routine Size: 


0000 00000 RETURN_FRAME WIDTH: 
WORB Save no 


51 14 AC 00 00002 MOVL FRAME noENGT , RI 
20 15 00006 BLEQ 1$ 
10 AC 05 00008 TSTL FRAME _WIDTH 
1B 15 00008 BLEQ 1$ 
08 BC 05 00000 TSTL aSTR_DESC 
16 13 00010 BEQL 1$ 
50 10 Ac 51 C5 00012 MULL3 1, FRAME_WIDTH, MAX_CHARS 
08 BC 50 01 00017 CMPL MAX_CHARS, @STR_DESC™ 
0B 19 0001B BLSS 1$ ~ 
50 08 BC 51 C7 0001D DIVL3 R1, @STR_DESC, TEMP_WIDE 
10 Ac 50 D1 00022 CMPL TEMP_WIDE, FRAME _W WIBTH 
02 15 00026 BLEQ 2$ 
50 04 00028 1$: CLRL RO 
04 0002A 2$: RET 


43 bytes, Routine Base: CODE + 1050 


. 3 
Print Symbiont -- separation routines 16-Sep 4 3 AX-11 Bliss-32 V4.0-74 
RETURN SYRANES WIDTH = Returns the Frame Length f 14- ~ge0n} 38? 96: 3; 93 PRTSMB.SRCJSEPARATE .B32;2 
98 can occur = add one less than the frame width to overcome this condition 
1} TEMP WIDE = .STR_DESCCSIZE]/.FRAME_LENGTH; 
; 1§ if ord WIDE LEQ .FRAME_WIDTH 
$312 ; RETURN (.TEMP_WIDE); ! return the value 
3317 ! gihery' ise it just won't fit 
3318 5 RETURN O tesehs : 
3319 2 
3320 1 END; 
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Print Symbiont == separation routines 16-Sep-19 23:03 AX-11 Biiss-32 V4.0-742 Page 77 
GET REVISIONS DATE = Get the revision date of cu 14- He aers n 95:93 9 PRTSMB.SRC SEPARA -B32;2 . (21) 

; 1 ! fis "GET_REVISION_DATE = Get the revision date of current file’ 

: 1! Functional Description: 
; nee This routine creates a phrase with DD-MMM-YYYY HH:MM describing 

$2 13 the revision date of the current file. Returns zero if file 

326 1! not open. 

327 1: 
$3 8 1 | Formal Parameters: 

309 «1 =~ | - Address of the SCB 
is STR_DESC - Desc of String to Return 
$e9) : ; RET_LEN - Return Length of Desc. 
3336 1 i Implicit Inputs: 
3334 1! none 
3335 7 | 
3336 610! «Implicit Outputs: 
3337 1 none 
3338 1! 
3339 1°! Returned Value: 
3340 1 non 
3341 1 i 
3342 1 | Side Effects: 
3343 1! non 
3344 1 I= 
3345 1 ROUTINE vacates 1) DATE ( 
3346 1 : REF $BBLOCK ' $cB 
3347 1 STR _DESC : REF VECTORL2J, i Output buffer desc 
3348 1 RET_LEN : REF VECTOR C,WORD) i Return length (word) 
3349 1 ) : NOVALUE = 
3350 2 BEGIN 
3351 2 BIND 
3352 2 XABDAT = .SCBCPSMS$A_XABDAT]: $BBLOCK, ! = RMS date block 
3353 2 FORMAT = SDESCR IPTOR ( 
$32¢ § “i7a0. 2s ! = revision date 
$329 § NAM = .SCBCPSMS$A_NAM]: REF $BBLOCK; 
3358 2 LOCAL 
3359 2 CURRENT_LEN : INITIAL (0); 
3360 2 
3361 2 IF FILE_OPEN(.SCB) 
3308 2 TH 
336 2 SFAO ( 
sace 2 AT 

365 2 CURRENT LEN, 
3366 2 STR_DESTLO]), 
3367 2 KABDATCXABSO ROTI, 
3368 2 s 
3369 2 
3370 2 RET_LENCO] = .CURRENT_LEN; 
ig 
3372 1 END; 

44 25 37 31 21 O1O7B P.AAL: .ASCII \!17%D\ : 
00000005 01080 P.AAK: .LONG 5 : 


| 
| 
| 
| 
| 
| 


oc 
| 


<yv 
om 


a ee a ee a ee 


ee ee ee Pe Pe ee Pe Pe ee Te Pe Pe Pee eee re Te Pere eee ere rere rere reraerererererererererererere rere reese tere te Te Te ts 


| 


3 
SEPARATE Print Symbiont == separation routines 1b-sép-1984 
v04-001 GET_REVISION_DATE = Get the revision date of cu 1: “Sep-19: 
00000000" 01084 
FORMAT= 
0004 00000 GET i eee 
| 50 04 AC dO 00002 MOVL 
52 0254 ¢ DO 00006 MOVL 
—E D4 00008 CLRL 
50 DD 0000D PUSHL 
0000vV CF 01 Fe Boer CALLS 
13 50 € 014 LBC 
OC A2 9Y9F 00017 PUSHAB 
08 AC DD QOO1A PUSHL 
08 AE 99F Q001D PUSHAB 
DS F 9F 00020 PUSHAB 
000000006 00 04 FB 00023 CALLS 
oc «BC 6E B80 O002A 1$: MOVW 
04 0002E RET 


; Routine Size: 47 bytes, Routine Base: CODE + 1088 


Ue thee 


Be 25:42:36 LbaTsmBcSacisePanate -039:2 


-ADDRESS P.AAL 


P.AAK 


NOW ae ae, eee 
OC ANMO-OC OMe - 
Dowc« 


DDD- » 


#4, SYSS$FAO 
CURRENT_LEN, @RET_LEN 
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(21) 


3370. 
3372, 


21 
4C 


20 
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| SEPARATE Print sys mbiont -- separation routines 16-Sep-1984 96 $3 +93 AX-11 Bliss-32 V4.0-74 Page 79 * 
v04-001 GET_SYSTEM_ANNOUNCEMENT= Create a Sentence Desc 14-Sep-1984 5: 2:26 PRTSMB.SRCJSEPARATE .B32;2 (22) VO: 
; seek ie ! Rebtel "GET_SYSTEM_ANNOUNCEMENT= Create a Sentence Describing the Current Job’ 
> 2449 75 1°! Functional Description: 
>; 2450 3/8 1} This routine rt. the system annoucement. ALL allocation of buffers 
: Stes 3377 1 | handled by ca 
; t28 3378 1! 
: 245 3379 1! Formal Parameters: 
> 2454 3380 1! ~ Address of the SCB 
> 2455 3381 1 | STR_DESC - Desc of String to Return 
; 2456 ea08 1! RET_LEN - Return Length of Desc. 
: 2457 3383 1! 
: 2458 3384 1 | Implicit Inputs: 
3; 2459 3385 1! none 
: 2460 3386 61 | , 
: 2461 3387 1 | Implicit Outputs: 
3: 2462 3388 1 | none 
: 2463 3389 1°! 
> 2464 3390 1 ' Returned Value: 
3 2465 3391 1! non 
: 2466 3392 1 : 
3; 2467 3393 1°! Side Effects: 
; 2468 3394 1 | non 
: 2469 3395 1 be 
; 2470 3396 1 ROUTINE GET_SYSTEM_ANNOUNCEMENT ( 
3; 2471 3397 1 sc6 REF $BBLOCK ' $CB 
> 2472 3398 1 STR_DESC : REF VECTORL2), i Output buffer desc 
>: 2473 3399 1 RSL_LEN : REF VECTOR C WORD] ! Return length (word) 
> 2474 3400 1 : NOVALUE = 
3 2475 3401 2 BEGIN 
: 2476 3402 2 BIND 
3 2477 P 3403 2 DEF INED oe. SDESCRIPTOR ( ; 
; 2478 3404 2 ), ! = Defined announcement 
3: 2479 3405 2 
3; 2480 P 3406 2 ANNOUNCE = SDESCRIPTOR ( 
> 2481 3407 2 *PSMSANNOUNCE' ); ! = system annoucement 
: 2482 3408 2 
3: 2483 3409 2 
3: 2484 3410 2 FAO_DESC VECTORCE2) 
> 2485 3411 2 UFFER VECTOR( 256, byte], 
; 2486 3412 2 TEMP_LEN : INITIAL (0), 
3; 2487 3413 2 STATOS : 
>: 2488 3414 2 
3; 2489 3415 2 FAO_DESCCSIZE] = XALLOCATION(BUFFER); 
3; 2490 3416 § FAO_ “DESCLADDR] = BUFFER; 
3; 2491 3417 
3; 2492 3418 2 !STATUS = $TRNLNM(attr =LNMSM_CASE BLIND, 
3: 2493 3419 2! tabnam=%ASCID™ "LNMSSYSTEM_TABLE', 
> 2494 3420 2! lognam= ANNOUNCE 
> 2495 3421 2 | rstlen= FA _DESCESIZE] 
> 2496 3420 2 rslbuf= FAO~DESCLADDR); 
3; 2497 34 2 
; 2498 P 3424 2 STATUS = $TRNLOG(Lognam= ANNOUNCE, 
3 2499 P $052 § rslbuf= FAO DESC 
3 2500 426 rsllen= TEMP_LENS; 
; 2501 3427 2 
: 2502 3428 2 IF .STATUS 
3; 2503 3429 2 THEN ! Success = Normal, Buffer_overflow 


! 
. 
| 
a 


G 3 
SEPARATE Print Symbiont == separation routines 16-Sep-1984 AX-11 Bliss-32 v4 4 
v04-001 GET SYSTEM. AN ANNOUNCEMENT= Create a Sentence Desc 14-Sep-1984 9: $3: 3 PRTSMB.SRCJSEPARAT aie, o33.2 Page 59 
; 2504 430 : 
: ah? o3e check for command file pointer ‘‘a'’ sign or no-translation code 
: $208 5038 4 OF ot NSTATUS EQL $S$_NOTRAN) 
: e L N N 
: $398 3236 : TEMP_LEN = 0 : 
: $313 3234 3 ELSE . ' Bad 
: Bad status - Badparam, Badlength, 
: 2518 $78 $ TEMP_LEN = 0; i “Badtable, Not found(badname) Mee videoth 
: 2515 3441 IF .TEMP_LEN EQL 0 ' Get the default sys version # 
$212 $4tg $ rel 4 
: 2517 3443 2 ' Put in the piaitet t ogo 
; 2518 3444 2 GET_DIGITAL_LOGO(.SCB,STR_DESCCOJ,RSL_LENCOJ) 
; 2519 3445 2€E 
3; 2520 P 3446 2 0 
3; 2521 P 3447 2 DEF INED_ANNOUNCE, 
: 2522 P 3448 2 RSL_LENTO) 
> 2523 P 3449 2 STR-DESCLOS, 
3; 2524 P 3450 2 . TEMP_LEN 
3 2525 3451 2 -FAO_BESCEADDR); 
> 2526 3452 2 
; 2527 3453 1 END; 
46 41 21 010B7 P.AAN: ty \IAF\ : 
010BA -BLKB 
00000003 0O10BC P.AAM LONG 3 
00000000' 010C -ADDRESS P.AAN 3 
45 43 4E 55 GF 4E 4E 41 24 4D 53 50 010C4 P.AAP: .ASCII \PSMSANNOUNCE\ é 
0000000C 010D0 P.AAO: LONG 3 
00000000" 010D4 ADDRESS P. AAP 5 
DEF INED_ANNOUNCE= P.AAM 
ANNOUNCE= AO 
~EXTRN SYSSTRNLOG 
0000 00000 GET_SYSTEM ~ peg Pay ot 
WORD Save nothin : 3396 
5E FEF8 CE 9E 00002 MOVAB shee (SP), S 3 
7E 04 00007 CLRL TEMP oEN ; 3401 
F8 AD 0100 8F 3C 00009 MOVZWL #256, FAO_D ; 3415 
FC AD 04 AE 9E 0000F MOVAB BUF FFER, PRO. BESC+4 : 3416 
7E 7C 00014 CLRQ : 3426 
7E D4 00016 CLRL ~(3p) 
F8 AD 9F 00018 PUSHAB FAO DESC 3 
10 AE 9F 0001B PUSHAB iene LEN - 
D7 =AF «OOF OOOIE PUSHAB NOONCE : 
000000006 00 06 FB 00021 CALLS ry SYSSTRNLOG 3 
09 50 €9 00028 BLBC STATUS, : 3428 
00000629 —=s« BF 50 D1 000 B CMPL STATUS, #1577 ; 3434 
02 12 i BNEQ 2s : 
6—E D4 00034 1$: CLRL TEMP_LEN 3; 3439 
6E D5 00036 2$: TSTL = TEMP > 3441 
0D 12 00038 BNEQ 3$ ; 
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SEPARATE Print Syebtont == separation routines 1o~se07 138% 95:93:93 AX-11 Bliss-32 ie oas Page 81 S 
v04-001 GET_SYSTEM_ANNOUNCEMENT= Create a Sentence Desc 14-Sep-1984 22:32:26 PRTSMB.SRCJSEPARATE .B832;2 (22) Vv 
7E 8 aS 4 at 4 pale STR_DESC, =(SP) 3 3444 
0000v CF 0 FB 0004 CALLS #3, GET_DIGITAL_LOGO : 
FC AD ODD aout 3$: PUSHL FAO_DESC+4 : 3451 
04 AE 0D QO04A PUSHL TEMP_LEN : 
08 AC ODD ied PUSHL STR_BESC ; 
0c AC DD $833 PUSHL me : 
8E AF 9OF Bode PUSHAB oer IND ANNOUNCE é 
000000006 00 05 FB 00056 CALLS #5, SYSSFAO F 
04 0005D : 3453 


; Routine Size: 94 bytes, Routine Base: CODE + 1008 
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SEPARATE Print Symbiont -- separation routines 3 -1984 3 AX-11 Bliss-32 V4.0-74 Page 85 f 
y04-001 GET DIGITAL. LOGO - treats a Phrase of Digital L 18: ~8ep- 1984 96: $3 9 PRTSMB.SRC SEPARA TE.B 633;2 ° (24) iy 
; s616 249 ! pebtet *GET_DIGITAL_LOGO - Create a Phrase of Digital logo' 3 
; 618 246 1 ' Functional Description: 3 
: 2619 545 1! VAX/VMS Version Vx.x - 3 
: 2620 544 1 ' : 3 
3: 2621 545 1 ! Formal Parameters: ij 
: 26 ¢ 546 1! - Address of the SCB ae 
; 26 3547 1! are DESC - Desc of String to Return : 
+ 2624 3548 1! RET_LEN - Return Length of Desc. ij 
: 2625 3549 1! , i 
: 2626 3550 1! Implicit Inputs: 33 
: sost $22! ; none 

3; 2628 225 1! 

3: 2629 3553 1°! Implicit Outputs: 

; 2630 3554 1! none 

3: 2631 3555 1! 

: 2632 3556 1 ! Returned Value: 

: 2633 3557 1! non 

: 2634 oh eS @ Bw 

3; 2635 3559 1°! Side Effects: 

: 2636 3560 1 ! non 

3: 2637 3561 1 !<- 

; 2638 3562 1 ROUTINE GET_DIGITAL_LOGO ( 

3: 2639 35635 1 ScB™ : REF S$BBLOCK ' $cB 

: 2640 3564 «(1 STR_DESC : REF VECTORL2], i Output buffer desc 

3 2641 3565 1 RSL_LEN : REF VECTOR C,WORDJ i Return Length (word) 

3 2642 3566 1 ) : NOVALUE = 

3: 2643 3567 2 BEGIN 

3 2644 3568 2 BIND 

3 2645 P 3569 2 DEFAULT = SDESCRIPTOR ( 

3: 2646 P 3570 2 "!'AC = VAX/VMS Version ', 

3 2647 3571 2 "tas"); 

3: 2648 3572 2 

3: 2649 3573 2 LOCAL 

; 2650 3574 2 LOGO ‘ 

3; 2651 3575 2 FAO_DESC : VECTORC2), 

: 2652 3576 2 BUFFER : sitmvet pect cl 

3; 2653 3577 2 ITEM_LIST : SITMLST_DEC (I1TEMS= 1)3 

: 2654 3578 2 

3; 2655 3579 2 FAO_DESCCSIZE] = XALLOCATION(BUFFER); 

s $028 re 4 § FAO “DESCCADDRI = BUFFER; 

3; 2658 3582 2 IF .SCBCPSMS$L_PAGE_WIDTH) LSS 52 ! 52 chars in complete logo 

3: 2659 $267 § THEN 

; 2660 584 LOGO = UPLIT BYTE (%ASCIC ‘DEC') 

: 2661 3585 2 ELSE 

; $06¢ $259 § LOGO = UPLIT BYTE (ZASCIC ‘Digital Equipment Corporation'); 

3: 2664 P 3588 2 SITMLST_INIT (ITMLST=ITEM_LIST, 

3: 2665 P 3589 § ( 

: 2666 P 3590 ITMCOD=SYI$_VERSION, 

3: 2667 P 3591 2 Bur ADR=.FAO_ “DESCLADDRI, 

3; 2668 fa o06 BUF SIZ= 

: 2669 P 359 RETLEN=FAQ_ DESCCSIZEJ 

3; 2670 594 

3; 2671 595 

3; 2672 3596 pervestoiina coctims i40nsi 


m 3 
SEPARATE Print Symbiont == separation routines 16-Sep-1984 02:23:03 AX-11 Bliss-32 V4.0-74 SEF 
vO6-001 GET_DIG{ TAL. LOGO - Create a Phrase of Digital | 12286871382 95°93 398 PRTSMB.SRC SEPARATE. 039; 2 Page 299 vol 
3675 597 | 
674 598 2 FAO_DESCCSIZE] = DELIMIT_STRING_NOT (.FAO_DESCCADDRI 61 
2675 3 26 : . LCURR GS ), FA ); 
2676 P 3600 2 $FAO ( O_DESCLSIZE] 
2677 P 3601 DEFAULT 
2678 P 60¢ RSL_LENCO) 
2679 P 360 STR-DESCLOJ, 
soe0 $08 § eho béscLO2) - 
= . version 
2682 3606 3 74 
2683 3607 1 END: 
63 
55 
56 20 53 4D 56 2F 58 41 56 20 2D 20 43 41 21 01263 P.AAU: ASCII \!AC = VAX/VMS Version \ ; 6F 
20 6 6F 69 73 72 65 01272 : 
53 41 21 01279 LASCII \!AS\ : 52 
00000019 0127C P.AAT: . 25 : 6E 
00000000" 01280 [ADDRESS P.AAU : 
6D 70 69 75 71 45 20 6C 61 74 69 67 49 46 SD 01588 PIAA: “ASCII S5>\b fai L Equi ¢ \ oF 
8 tls <29>\Digita uipment Corporation : 
GE 6F 69 74 61 72 6F 70 72 6F 43 20 74 6E 65 01297 . — 2 ; | 
DEFAULT= P. AAT 
eEXTRN SYSSGETSYIW 
0004 00000 GET_DIGITAL_LOGO: 
«WORD Save R2 3 3562 
2¢ C2 00002 SUBL2 #44, SP : | 
24 AE 14 DO 00005 MOVL #20, FAO_DESC : 3579) 
28 =A 10 AE 9E 00009 MOVAB BUFFER, FAO_DESC+4 : 3580. 
50 04 AC 00 00005 MOVL  $CB, RO : 3582) 
34 0200 ¢O D1 0001 CMPL ©: 5512¢RO), #52 ; 
06 18 00017 BGEQ 1$ : 
52 C2 AF 9E 00019 MOVAB P.AAV, LOGO : 3584) 
04 71 DO0ID BRB 2s a ee. P 
52 CO AF 9E OOOTF 1$: MOVAB P.AAW, L : 3586) 
50 6E 9E 00023 2$: MOVAB ITEM bist SITMBLKPTR : 3594. 
80 10000008 8F D0 00026 MOVL —-#268%35464, ($SITMBLKPTR) + : | 
80 28 «AE DO 900¢D MOVL FAO_DESC+4, ($S$ITMBLKPTR) + : 
80 24 AE 9E 00031 MOVAB FAO-DESC, ($$ITMBLKPTR)+ ; | 
80 D4 90035 CLRL ($$TTMBLKPTR)+ : 
7E 7C 00037 CLRO =(SP) : 3596 
7E p4 00039 CLRL = = (SP) : 
OC AE OF B PUSHAB ITEM_LIST : 
7E 7C 00056 CLRQ 9 = (SPT ; 
7E D4 0004 CLRL = = (SP) : | 
000000006 00 07 FB 0042 CALLS #7, SYSS$GETSYIW ; | 
24 AE DD 0004 PUSHL FAG _DESC : 3599 
20 DD 0004C PUSHL #3 : 3598. 
30 AE DD O004E PUSHL FAO_DESC+4 F 
0000v CF 9 FB 90051 CALLS #3, DELIMIT _STRING_NOT : 
24 =A 0 pO 00056 MOVL RO, FAO_DESC ; | 
24 AE 9F OO05A PUSHAB FAQ_DESC : 3605. 
52 DD 0005D PUSHL LOGO ; | 
08 AC DD 0005F PUSHL  STR_DESC : 
OC AC DD 00062 PUSHL RSL7LEN ; 
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; Routine Size: 


Pri 
GET 
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31 


mbiont == separation routines 3 
TAL_LOGO = Create a Phrase of Digital 


FF6D + oF 
000000006 00 5 fe 


113 bytes, Routine Base: CODE + 12A6 


Nn 3 aa 

eaep-198e 28:82:06 
PUSHAB DEFAULT 
CALLS #5, SYS 
RET 
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v04-001 GET_JOB_DESCRIPTION = Create a Sentence Describ ae eer 95393 198 LPRTSMB SRE SEPARATE .B32;2 . (25 
3 eH O08 } Rsbttl "GET_JOB_DESCRIPTION = Create a Sentence Describing the Current Job’ 

; 2687 610 1 ! Functional Description: 

: ons oi) : } S routine creates a sentence describing the current job. 

; 2690 gig 1 ! Formal Parameters: 

; 2691 614 1! - Address of the SCB 

; 269 3615 1! STR_DESC - Desc of String to Return 

; 269 3616 1! RET_LEN - Return Length of Desc. 
; 2694 3617 1 | 

; 2695 3618 1 ! Implicit Inputs: 

3 $098 ee)? 3 none 

: 2697 620 1! 

: 2698 3621 1! Implicit Outputs: 

; 2699 e056 1! none 

: 2700 3623 1! 
: 2701 3624 1 ! Returned Value: | 
; 2702 3625 1! none 

:; 2703 3626 1! 

> 2704 3627 1 | Side Effects: | 
; 2705 3628 1! none 
: 2706 3629 1 !<- 

3; 2707 3630 1 ROUTINE GET_JOB_DESCRIPTION ( 

3; 2708 3631 1 SCB : REF $BBLOCK, !' $¢cB 

; 2709 3632 #1 TIME_FLAG ° 

3 2710 3633 1 STR_BESC : REF VECTORC2), ! Output buffer desc 

: 2711 3634 «(1 RET_LEN : REF VECTOR C,WORD) ! Return Length (word) 

: 2712 3635 1 ) : NOVALUE = 

3: 2713 3636 2 BEGIN 

> 2714 3637 2 BIND 
3 2715 3638 2 TRAILING ., 
3; 2716 3639 2 LEADING = 0, 
3 2717 3640 2 
3; 2718 P 3641 2 NODE = S$DESCRIPTOR ( 
3; 2719 3642 2 *SYSSNODE'),! = system annoucement 

; 2720 3643 2 

3; 2721 P 3644 2 DATE_FORMAT = $DESCRIPTOR ( 

3: 2722 3645 2 T117%D"), | 
3; 2723 3646 2 

3: 2724 P 3647 2 SENT_FORMAT1 = SDESCRIPTOR ( 

3 2725 P 3648 2 "Job 'AS ', ! = job name 

; 2726 P 3649 "Cid *, ! = job number 

3; 2727 P 3650 2 "queued to !AS ', ! = batch file name(pres tense) 

: 2728 P $2) § "on 'AS "' ' = time queued 

: 2729 P O26 ‘by user 'AS, ', ' = user name 

: 2730 P 3653 2 ‘utc jae ' = user uic 

3 2731 P 3654 $ ‘under account !AS °, ! = user account 

3; 2732 P 3655 ‘at priority 'UL, °‘, : = gue priority 

3 2733 P 3656 2 "iat *, !- started 7 ceapleted,/ 

3: 2734 P 3657 § , ‘restarted'/'aborted' 

: sie P 3658 ‘on printer !AS ', ! = device name 

: re P 3659 2 ‘on ! J ! = time printed 

Ss erer P 3660 ‘from queue !AS', ! = executor queue 

; 2738 661 ‘7 3 ! = period 

3: 2739 C6¢ 

; 2740 66 LOCAL 

> 2741 3664 RET_LENGTH j 
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v04-001 GET_JOB_DESCRIPTION = Create a Sentence Describ 14-Sep-1984 2:26 PRTSMB.SRCJSEPARATE .B32;2 (25) 
: 274 665 STATUS 
$ it 068 BOUBLE _COLONS 
3; 2744 66 CH O1Ce 
; 2745 668 DATE_QUEUED VECTORC2) 
> 2746 669 DATE-QUEUED BUFF §: VECTOR [1?,bytel, 
: gree 670 DATE_PRINTED : VECTORE2) 
: 2748 671 DATE-PRINTED_BUFF =: VECTOR [1?,bytel, 
: 2749 ore ACCOONT_DESC™ VECTOR $i 
; 5730 $027 USERNAME _DESC VECTOR (2); ! desc of string 
: 5f28 3676 ‘ get the user name delimited 
: 2754 677 5 USERNAME ~DESCESIZE? = .SCB_SIZE_ (USER_NAME); 
; 2755 3678 2 USERNAME_DESCCADDR) = .SCB “ADDR. (U USER_NA ME); 
3 sf28 $022 § Insert only the string -+» No trailing blanks 
: 2758 681 2 DISCARD (TRAILING, %C' ', USERNAME DESCCADDRIJ, .USERNAME_DESCCSIZE], 
$f28 $05 § USERNAME _DESCCSIZEJ, OSERNARE _DESCCADDRI); ‘Return length and pointer 
; $fe) et: 5 ; get the account name delimited 
; 27635 3686 2 ACCOUNT oPESCESIZE) = .SCB_SIZE_ (ACCOUNT_NAME); 
3 2764 3687 2 ACCOUNT DESCCADDR] = .SCB “ADDR. (ACCOUNT “NAME ) ; 
3 $76? tt: § Insert only the string ... No trailing blanks 
: 2767 3690 2 DISCARD (TRAILING, ZC* ', ,ACCOUNT_DESCCADDRIJ, .ACCOUNT_DESCCSIZEJ, 
Z sree $003 § ACCOUNT _besccsizei, ACCOUNT _DESCCADDR4): ! Return Length and pointer 
: 2770 3693 2 ! start, restart and complete 
; 2771 3694 2 IF .TIME_FLAG 
5008 36963 aeGiN 
> 2776 3697 3 CHOICE = UPLIT BYTE (ZASCIC 'started'); 
: 14h) $008 3 I peri FLAG_ (RESTARTING) 
> 2777 3700 3 CHOICE = UPLIT BYTE (%ASCIC 'restarted'); 
; 2778 3701 3 D 
Bb BE Fara 
: 444 $008 ; BIND CONDITION = SCBCPSM$T_CONDITION_AREA] : VECTOR; ! Task completion status 
; 2788 3506 ; Assume job completed normally 
: $83 3/08 ; CHOICE = UPLIT BYTE (ZASCIC *completed'); 
: ht 319 : Check completion status for an error 
> 2789 S712 § iF .CONDITIONCO] NEQU 0 
: hn ae 6 MN coin 
F $7 AK ? Assume job controller or symbiont initiated abort 
: ee ah ; CHOICE = UPLIT BYTE (ZASCIC ‘ABORTED"); 
: 2796 759 4 ' Check for special case of job controller inititated requeue 
3; 2797 3720 4 ! 
; 2798 3721 4 
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F_.CONDITIONCO] EQLU JBC$_JOBREQUEUE 


igi 
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END; 
END; 


Get and = the date/times 
DATE “GUE UED ESTEE = aeb Pens SonCBATS _—— BUFF); 
DATE_QUEVEDCADDR] = DATE_QUEUED_BUF 


SFAO ( pT cence” 


ENGTH 
DATE QUEUEDCO], 
' SCBEPSMSO. TIME _QUEUED]); 


DISCARD (LEADING, %C' ". .DATE_QUENE 
ATE auéveDts 163, DATE _QUEU 

DISCARD CTRAILIN “DATE ~QU 

DATE  QUCUEDESIZE): DATE —QUEU 


! Bey ted 
DATE CERIN EOCSIZEJ = 
DATE_PRINTEDCADDR] = DATE_PRINTED_BUFF; 
SFAO ( pare FORMAT, 


DATE PRINTEDCO), 
SCBEPSMS,. TIME _PRINTED]); 


m 
Cc 
mmnmno 


SFAO ( SENT FORMAT1, 
Fr-TENt OA 

SCBEPSMSO JOB_NAME], 

.SCBCPS nS. ENTRY. _NUMBER], 

Sterpsnsa GUEUEI> 


AcCOUN DESCLO), 
3 BEPSASL -PRIORITYI, 


BI 
“CHOICE DEVICE_NAME], 
DATE _PRINTEDL 
SCBEPSNSO. EXECUTOR _QUEUE] 


wu 


iE 
RETURN SS$_NORMAL; 
ND; 
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N 
CHOICE = UPLIT BYTE (ZASCIC ‘REQUEUED'); 


RET LENGTH, 
»RET 


i Return Length and pointer 


yor length and pointer 


ZALLOCATION(DATE_ PRINTED_BUFF); 


DISCARD (LEADING, %C' *, .DATE_PRINTEDCADDR], .RET LENGTH 

DATE PRINTED(SiZE), DATE _PRINTEDCADDRI); ! Return length and pointer 
DISCARD (TRA %C' RINTEDLADDR], .RET LENGTH, 

DATE  PRINTEDCSIZES. DATE_PRINTEDLADDR4): ! iutces Length and pointer 


job name 

entry number 

batch que present tense 
time queue 

user name 

user uic 

user account 

Queue priority 
started/completed/restarted 
device name 

time printed 

executor queue 
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v04-001 GET n JOB DESCRIPTION : Create a Sentence Describ 14- ~ep- 1984 95: $3; % PRTSMB, SResseeaate 4552 - (285 vO: 
OC AE 60 3C¢ 00038 MOVZWL (RO), ACCOUNT_DESC F s | 
10 AE 04 AO d0 0093 MOVL  4(ROS, ACCOUNT_DESC+4 t 3687 : 
10 AE 9F 00044 PUSHAB ACCOUNT_DESC+4~ + 3691 ; 
10 AE 9F 00047 PUSHAB ACCOUNT~DESC : : 
14 AE DD OO004A PUSHL  ACCOUNT-DESC : 3690 ; 
1C AE DD 600460 PUSHL ACCOUNT DESC +4 : ; 
20 DD 00050 PUSHL # : : 
01 dd 00052 PUSHL #1 : ; 
65 06 FB 00054 CALLS #6, DISCARD : , | 
le 8 AC €9 00057 BLBC TIME_FLAG, 1$ + 3694. 3] 
5 FF7D CF SE 00058 MOVAB P.ABD, CHOICE : 3697. 31 
17 0140 ce 02 a 00060 BBC #2, 320(R2), 2% : 3698. 3 | 
5 FF7A CF 9E 00066 MOVAB P.ABE, CHOICE : 3700. .j 
10 11 00068 BRB 2$ > 3694 | 4 
53 FF7D CF 9E 0006D 1$ MOVAB P.ABF, CHOICE : 3708. 5) 
028E C2 D5 00072 TSTL © 654(R2) ; 3712 | 3] 
05 13 00076 BEQL 28 : 3; 
53 FF7C CF 9E 00078 MOVAB P.ABG, CH O1ce ; 3717, 3 
44 AE 11 DO 0007D 2$ MOVL #17, DATE _QUEUED : 3732 e 
48 AE 30 AE 9E 00081 MOVAB DATE. QUEUED- BUFF, DATE_QUEUED+4 ; 3733 3 | 
015¢ C2 9F 00086 PUSHAB 348(R2) : 3738. : | 
48 AE 9F OO08A PUSHAB DATE _QUEUED : | 3 | 
08 AE 9F 0008D PUSHAB RET_CENGTH : > 
FEBO CF 9F 00090 PUSHAB DATE_FORMAT : 3; 
64 04 FB 00094 CALLS #4, § 0 : 33 
48 AE 9F 00097 PUSHAB DATE_QUEUED+4 : 3741 3: 
48 AE 9F 0009 PUSHAB DATE : 2 
08 AE DD 0009D PUSHL RET_CENGTH : 3740) 7 
54 AE DD OOOAD PUSHL DATE_QUEUED+4 ; 3 
20 DD 000A3 PUSHL #32 : 2; 
7E D4 000A5 CLRL. =-(SP) ; 33 
65 06 FB 000A7 CALLS #6, DISCARD ; | 33 
48 AE 9F OOOAA PUSHAB DATE -AUEUED +4 : 3743 33 
48 AE 9F OOOAD PUSHAB DATE QUEUED ; 33 
08 AE DD 00080 PUSHL RET CENGTH : 3742) 2] 
54 AE DD 00083 PUSHL Se Sitios ; | ® 
20 OD 000B6 PUSHL 3 s 
01 DD 00088 PUSHL : | 3} 
65 0¢ FB OOOBA CALLS ARD ; 3 | 
28 AE 11 DO 000BD MOVL re, OOATE NP NTED : 3746. 3 
2C OA 14 AE 9E 000C1 MOVAB DATE PRINTED. _BUFF, DATE_PRINTED+4 > 3747 | . 
0234 C2 9F 000C6 PUSHAB 564(R2) : 3752. . 3 
2C AE 9F QOOCA PUSHAB DATE_PRINTED ; | 
08 AE 9F O000CD PUSHAB RET CEN ; 3 
FE70 CF 9F 000D0 PUSHAB DATE_FORMAT : a) 
64 04 FB 000D4 CALLS #4 ; : 
2c «AE 9F 00007 PUSHAB DATE PRINTED+4 : 3755 : 
2C AE 9F OOODA PUSHAB DATE~PRIN ; : 
08 AE DD 000DD PUSHL RET CENGTH : 3754 : 
38 AE DD 900E0 PUSHL DATE PRINTED+4 : : 
20 DD O00E PUSHL : : 
7E D4 000E5 LRL i ; : 
65 06 FB OO0E7 CALLS #6, DISCARD ; : 
3c AE 9F OOOEA PUSHAB DATE_PRINTED+4 : 3757 : 
C AE 9F OOOED PUSHAB DATED PRINTED : | : 
08 AE DD 900F 9 PUSHL T_ CENGTH : 3756 : 
AE DD 000F PUSHL RATE _PRINTED+4 : : 
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v04-001 GET_FILE_DESCRIPTION = Create a Sentence Descri 14-Sep-1984 22:52:26 PRTSMB. SREISEPARA ATE.B32;2 (26) 
3 $828 re } Fabeel "GET_FILE_DESCRIPTION = Create a Sentence Describing the Current File’ 
: 2858 780 1! Functional Description: \ ; 
: se25 4 ! : This routine creates a sentence describing the current File. 
> 2861 3788 1 ! Formal Parameters: 
; 5p6¢ 784 1! - Address of the SCB 
; 286 HAF 1! STR_DESC - Desc of String to Return 
; 2864 786 1! RET_LEN - Return Length of Desc. 
>; 2865 3787 1! 
: 2866 3788 1°! Implicit Inputs: 
3: 2867 $782 1! none 
; 2868 790 1! : 
; 2869 3791 1°! Implicit Outputs: 
; 2870 $538 1! none 
; 2871 3793 1! 
3 oes 3794 1 ! Returned Value: 
3; 287 3795 1! non 
3 2874 3796 1! 
3; 2875 3797 1 ! Side Effects: 
3; 2876 3798 1! non 
: 2877 3799 1 !-- 
; 2878 3800 1 ROUTINE GET_FILE_DESCRIPTION ( 
: 2879 3801 1 5cB : REF $BBLOCK SCB 
> 2880 3802 1 STR_DESC : REF VECTORL2), Output buffer desc 
3; 2881 3803 1 RET “LEN : REF VECTOR C,WORD] !' Return length (word) 
3; 2882 3804 1 ) : NOVALUE = 
; 2883 3805 2 BEGIN 
3; 2884 3806 2 BIND 
; 2885 3807 2 FAB = .SCBCLPSM$A_FAB): see OCk.. 
; 2886 3808 2 NAM = .SCBCPSM$A NAM): SBBLOCK, 
: 2887 3809 2 XABDAT = .SCBLPSASA_ XABDaT ys SBBLOCK, 
; 2888 3810 2 XABFHC = .SCBLPSMSA_ _XABFHC]: $BBLOCK, 
3; 2889 3811 2 XABPRO = - SCBLPSMSA_ XABPROJ: $BBLOCK, 
; 2890 3812 2 
3; 2891 P 3813 2 FORMAT_POS = SDESCRIPTOR ( : 
: 2892 P 3814 2 "File 'AS ', ' = file name 
: 2893 P 3815 2 "C1, 1}, * ! = file Id number 
3 2894 P 3816 2 "Last revised on !17%D, ', ! = revision date 
; 2895 P 3817 2 ‘is a 'UL bloc ‘ ! = file size 
: 2896 P 3818 2 IAC file ! = file organization 
3; 2897 3819 2 ‘owned by vic is “hy ! = owner user uic 
; 2898 3820 2 
3; 2899 P $654 $ RECORD FORMAT = SDESCRIPTOR 
; 2900 P 38 ¢ "The records are ', - 
: 2901 3823 2 "tAC with ‘), ! = record format 
3; 290 $85¢ 
3; 290 825 RECORD VFC_FORMAT = SDESCRIPTOR ( 
3: 2904 P 3826 ‘The records are ! 
3; 2905 P 3827 § ‘variable Length with a ' 
3: 2906 3828 ‘fixed control size of ‘ul byte!%S and "Ye Q : 
3; 2907 3829 2 - fixed control area size 
3; 2908 3830 2 
3; 2909 P tt § REC_SIZE = $DESCRIPTOR ( | 
; 2910 Hy * The longest record is !UL byte!%S."), : 
3 2911 3833 2 ! = max record size 
: 2912 3834 2 
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v04-001 GET_FIL DESCRIPTION - Create a Sentence Descri 14-Sep-1984 22:52:26 PRTSMB.SRCIJSEPARATE.B32;2 (26) 
913 P 3835 CARRIAGE _FO rete = SDESCRIPTOR ( ; i, 
ai3 4 8 "1M." ! = record attributes : 
916 P 3838 FORMAT _NEG = $DESCRIPTOR ( | ; :; 
a 3840 "FTLe (!AS) description is unavailable to the symbiont.'); ei; 
919 841 LITERAL 3; 
920 3e06 K_MAX_BUFFER_SIZE = 512; a 
921 84 2% 
856 3844 LOCAL a: 
92 3845 RECORD_SIZE ° 3 | 
ase ene9 § LE_STZE ° 23 
925 847 ORGANIZATION 6 
926 3848 § ATTRIBUTES . sj 
927 3849 RMAT : - | 
928 3850 2 CURRENT_LEN INITIAL (0), i 
929 3851 2 DATE REVISED VECTORC2) ; ’ : 
sont $626 § STRING_PTR VECTOR (24; ! Pointer to current string 2 
932 3854 2! Allocate the buffer for ‘'GET_xxx'' Routines 3; 
933 3855 2 2 
934 3856 2 STRING_PTR(SIZE] = K_MAX BUFFER SIZE; fx 3; 
935 3857 2 STRING_PTRLADDR) = .STR_BESCCADBRI; ! init address -; 
936 3858 2 -; 
937 3859 2 RET_LEN[O) = 0; a; 
2938 3860 2 .; 
2939 3861 2 IF FILE_OPEN(.SCB) i 
2940 ee08 $ THEN s 
2941 386 EGIN via ‘| 
2942 3864 3 ! get the file size z 
2943 3865 3 ! 2; 
2944 3866 3 FILE SIZE =_.XABFHCCXABSL_EBK]; e ; 
2945 3867 3 IF (TXABFHCLXABSW FFB) EQC 0) AND : i 
2946 3868 4 ( .FILESIZE NEQ 0 2 
2947 3869 3 2; 
2948 3870 3 NFILE sif— © .FILE SIZE = 1; oi; 
2949 3871 3 ; j 3 
2950 $578 3 ! insert file organization 3 
951 3873 3 i 3 
2952 3874 3 if -FABCFABSB_ORG] EQL FABSC_IDX : 
2953 3875 3 THEN ; 3 
2954 3876 3 ORGANIZATION = UPLIT BYTE (ZASCIC ‘indexed') : 
2955 3877 3 ELSE IF .FABCFABSB_ORG) EQL FABSC_SEQ : 
$328 $558 ; THEN : 3 
957 879 ORGANIZATION = UPLIT BYTE (ZASCIC ‘sequential') 3 
2958 880 3 ELSE IF .FABCFAB$B_ORG) EQL FABSC_REL F 
2959 881 ; HEN ; : 
S00 $pe6 ORGANIZATION = UPLIT BYTE (ZASCIC ‘relative') : 
3e8 3884 : ORGANIZATION = UPLIT BYTE (XASCIC ‘undefined organization'); 3 
96 rH : 
964 886 3 
965 P 3887 $FAO ( FORMAT POS, : 
966 P 3888 CURRENT_LEN 3 
967 P 3889 STRING PTR(O) ; 
968 P 3890 SCBLPSM$Q_FILE_SPECIFICATIONI, ; 
969 P 3891 .NAMCNAM$SQ_F ID"NUMJ, ; 
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vO6-001 GET FILE DESCRIPTION = Create a Sentence Descri 12286 o8c 95:93:58 PRTSMB.SRCJSEPARATE.B32;2 (26) 
: 2970 Pp 838 or pots te S| ae eck . 
; 2971 P 389 «NAMLNAM$W_FID_RVNJ, 
; 37¢ P 3894 XABDATCXABS$Q_RDTI, 
; 297 P 3895 «FIL 
: 2974 P 3896 ORGANIZATION, 
: 2975 if $44 - XABPROCXABSL_UIC] 
: 2976 : 98 ); 
: 2977 899 
: 2978 3900 RET LENCO] = .RET_LENCO) + .CURRENT_LEN; 
; 2979 3901 STRING _CTREADORG = .STRING PTRCADDR] + .CURRENT_LEN; 
; Soar 3306 STRING_PTRCSIZE) = K_MAX_BOFFER_SIZE - .RET_LENTOJ; 
; 2380 3902 ' get record format 
: 298 3905 : 
> 2984 3906 3 
; 4H a4 ; RECORD_SIZE = .XABFHCCXABSW_LRLJ; ! record size 
: 298 3909 3 IF .FABCFABSB_RFM) NEQ FABSC_VFC 
: 2988 3910 3 THEN 
: 2989 3911 4 BEGIN 
; 2990 3912 4 ' get record type 
; 2991 3913 4 ! 
3 2992 3914 4 SELECTONE .FABCFABSB_RFM] OF 
3; 2993 3915 4 
3 2994 3916 4 CFABSC_FIX]: FORMAT = UPLIT BYTE 
3; 2995 3917 4 (ZASCIC ‘fixed-length'); 
3; 2996 3918 4 CFABSC_STM): FORMAT = UPLIT BYTE 
; 2997 3919 4 (ZASCIC ‘stream'); 
: 2998 3920 4 CFABSC_STMCR): FORMAT = UPLIT BYTE 
3; 2999 3921 4 (ZASCIC ‘stream-CR'); 
; 3000 3922 4 CFABSC_STMLF J: FORMAT = UPLIT BYTE 
: 3001 3923 4 (ZASCIC ‘stream-LF‘); 
: 3002 3924 4 CFABSC_UDF J: FORMAT = UPLIT BYTE . 
; 3003 3925 4 (ZASCIC ‘an undefined format'); 
; 3004 3926 4 CFABSC_VAR]: FORMAT = UPLIT BYTE 
; 3005 3927 4 (ZASCIC ‘variable length"); 
; 3006 3928 4 TES; 
3; 3007 3929 4 
:; 3008 P 3930 4 $FAO ( RECORD_FORMAT, 
: 3009 P 3931 4 URRENT_LEN 
; 3010 P 3932 4 STRING_PTRLOJ, 
; 3011 P 3933 4 . FORMAT 
; 3012 3934 4 3 
: 3013 Ha 4 
3; 3014 936 4 END 
; 3015 3937 3 ELSE 
: 3016 P 3938 3 $FAO ( RECORD_VFC_FORMAT, 
; 3017 P 3939 3 URRENT_LEN 
; 3018 P 3940 ; STRING PTRLOJ 
: 3019 P 3941 .FABLFABSB_FS2) 
: 3020 ra 3 
; 3021 94 
: $058 3944 RET_LENCO) = .RET_LENCO) + .CURRENT_LEN; 
; 302 945 STRING_PTRCADDR) = .STRING_PTRCADDR] + .CURRENT_LEN; 
; s0Se rg STRING_PTRCSIZE] = K_MAX_BOFFER_SIZE - .RET_LENTO); 
; 3056 948 ! get carriage control 
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v5e-001 GET_FI E DESCRIP TION = Create a Sentence Descri 12286871388 95:93:98 PRTSMB.SRC SEPARA TE.B 633-2 (26) | v0! 
; 3027 949 ! 
028 950 IF .FABCFABSV_CR) 
029 951 THEN 
030 326 ATTRIBUTES = UPLIT BYTE (ZASCIC ‘implied (CR) carriage control") 
031 95 ELS 
O36 954 BEGI 
tii 92? IF _ .FABCFABSV_FTNI 
be? $026 ATTRIBUTES = UPLIT BYTE (XASCIC ‘FORTRAN (FTN) carriage control’) 
037 959 BEGI 
038 960 If .FABCFABSV_PRNJ 
039 961 TH 
04 96 ATTRIBUTES = 
soe se UPLIT BYTE (ZASCIC ‘print file (PRN) carriage control') 
ATTRIBUTES = UPLIT BYTE 
ew (ZASCIC ‘imbedded (<none>) carriage control"); 
END; , 
AO ( 
CARRIAGE_FORMAT, 
CURRENT CEN 
STRING PrRC 62, 
-ATTRIBUTES ) 


RET LENCO) = RET Lento 7, 
SFRING -PTRCADDR) = .STRING P 
STRING_ -PIRESIZE] = K_MAX_BOF 

C 


IF .FABCFABSB_RFM] NEQ FABS 
THEN 


CURRENT_LEN 

TRCADDRI + * CURRENT LEN; 
FER_SIZE - .RET_LENTO); 
FIX 


E 
STRING_P 
-RECORB_S 


RET_LENCO) . CURRENT_L 
STRING_PTRE BTREADDRI- . * CURRENT LEN; 
At” “PTRE FFER_SIZE - .RET_LENTO); 


ELSE 


( 
FORMAT _NEG 
CURRENT | Len 
STR 


scabPsnsarF €_SPECIFICATION? 


PRIWNNNWIANWI NINN BB BEEBE EE BAW NANI NWN SB UIT UU BBB BBW 


Be Se Se Se Be Be Be Ge Se Ge Se Se Se Se Be Ge Fe Ge Se Ge Ge Se Se Se Ge Se Oe Ge Be Se Ge Se Se Se Ge Se Se Se ee Be Se Se Se Oe Be ee Se ee Se Ge Oe Geese Se Ge Gee 


act sgurel = ,CURRENT_LEN; 
END; 


————- > 
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v04-001 GET_FILE_DESCRIPTION = Create a Sentence Descri 14- 8ep-19 4 95:93:98 PRTSMB. SRC ISEPARATE. B32;2 ’ (26) 
; 3084 4006 
; 3085 4007 ' final perk for overflow 
; $089 4008 IF .RET_LENLO] GTR K_MAX oBUFFER SIZE 
; 3087 4009 EN 
; 3088 4010 BEGIN 
; 3089 4011 RET LENCO] = 512; 
; 3090 red RETORN; 
; 3091 4013 2 END; 
; 309 4014 § 
; 309 4015 2 RETURN SS$_NORMAL; 
> 3094 4016 1 END; 


20 53 41 21 20 65 6C 69 P.ABI: .ASCII \File !AS \ : 
-— 2. . SS Be $] ec 4€ 55 21 ASCII \C!UL,!UL,!UL), \ : 
65 73 69 76 65 72 20 74 73 81 ASCII \last ot be on !17%D, \ : 
a 2c 666lCU CST CO $1 : 
<< @ @ & 3 2: fe U8 lCUm hts ASCII \is a !UL block \ : 
20 65 6C 69 66 20 43 41 ASCII \!AC file \ 3 
49 55 20 79 62 20 64 $2 3 a4 ASCII \owned 4 UIC !'%1. \ 3 
000000 P.ABH: .LONG 90 3 
00000000' ADDRESS P.ABI 3 
73 64 72 #6F 63 65 72 20 65 68 P.ABK: .ASCII \The records are \ : 
20 68 74 69 77 20 43 41 ASCII \!IAC with \ ; 

-BLKB 3 
000000 P.ABJ: .LONG 25 g 
00000000' -ADDRESS P.ABK 3 
73 64 72 6F 63 65 72 20 65 P.ABM: .ASCII \The records are \ : 
65 6C 20 65 6C 62 61 69 72 ASCII \variable Length with a \ 3 
20 61 20 68 74 69 3 
72 74 6€ 6F 63 20 64 65 78 eASCII \fixed control size of !UL byte!%S and \ : 
20 4C 55 21 20 66 6F 20 65 : 
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-BLKB 3 
000000 P.ABL: .LONG 77 3 
00000000" -ADDRESS P.ABM ; 3 
65 67 6E— 6F 6C 20 65 68 54 P.ABO: .ASCII \ The longest record is !UL byte!%S.\ : 
55 21 20 73 69 20 64 72 6F ; 
a ae. ee ; 
68 00 P.ABN: .LONG 36 3 
0000000' eADDRESS P.ABO 3 
2— 43 P.ABQ: .ASCII \!AC.\ : 
000000 P.ABP: .LONG 4 3 
00000000' ADDRESS P.ABQ 3 
20 29 53 41 21 28 #20 65 6C€ P.ABS: ASCII \File (!AS) description is unavailable to\ ; 
20 73 69 20 of 6F 69 74 70 ; 
6F 74 20 65 6C 62 61 6C 3 
6F 69 62 6D 79 73 20 65 68 ; 


ASCII \ the symbiont.\ 
-BL 3 
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SS P 


AD DRE ABS 
.ABT: ASCII <7>\indexed\ 
-ABU: ASCII <10>\sequential\ 
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ee a ed ed ed = = SS = = 2 8) oo os os SS ss 
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Rae JFIL syne DESCRIPTION = Create a Sentence Descri 14- at 3B 96: $3; 3 PRTSMB.SRCJSEPARATE. b3 32 ° (26) 
65 76 69 74 61 6C 65 72 O8 01687 P.ABV: .ASCI’ <8>\relative\ ; 
61 67 72 6F 20 64 §2 6t 69 66 $9 64 E is \6 1690 P.ABW: .ASCII <22>\undefined organization\ : 
68 74 67 6E 65 6C 2D 64 65 5 9 6 ge 16A7 P.ABX: ASCII <12>\fixed-Length\ : 
6D 61 65 72 74 73 06 016B4 P.ABY: ASCII <6>\stream\ : 
30 6D 61 65 72 74 73 09 1688 P.ABZ: .ASCII <9>\stream=CR\ : 
46 4C 2D 6D 61 65 72 74 73 09 016C5 P.ACA: <ASCII <9>\stream-LF\ : 
66 20 64 65 6E 6 65 64 6€ f° 20 6 $i 13 lec P.ACB: .ASCII <19>\an undefined format\ : 
74 67 6€ 65 6C 20 65 6C 62 61 69 72 61 76 OF ane P.ACC: .ASCII <15>\variable Length\ : 
63 20 29 52 43 28 20 64 65 69 6C 70 6D 69 1D O16F3 P.ACD: ASCII <29>\implied (CR) carriage control\ : 
CRUSE EO ae oh eer Oe OM, eam ae ie noe 
° $ e <5U> carriage contro 3 
GF 72 74 bE 6F 68 20 65 67 61 69 73 72 61 3 01720 . : 
52 50 28 20 65 6C 69 66 20 74 6€ 69 72 70 21 01730 P.ACF: .ASCII \!print file (PRN) carriage control\ : 
GE GF 83 20 65 GF Gt 69 72 72 CI 6S 20 29 te , ° : 
6—E 6F 6€ 3C 28 20 64 65 64 64 65 62 6D 69 22 01752 P.ACG: .ASCII \''imbedded (<none>) carriage control\ : 
6F 63 20 65 67 61 69 72 72 61 63 20 29 3€ re 01761 ° : 
6C 6F 72 74 6€ 01770 : 
FORMAT -POss P.ABH 
RECORD ~F ORMAT= P.ABJ 
RECORD-VFC_FORMAT= P.ABL 
REC_SIZE= P. ABN 
CARRIAGE FORMAT= _—~P. ABP 
_NEG G= P.ABR 
O7FC 00000 GET_FILE -PESCRIPTION: 
WORD Save Ree R3,R4,R5,R6,R7,R8,R9,R10 ; 3800) 
SA 000000096 00 9E 00002 MOVAB SYS$FAO, R10 ° ; 
59 EF2 CF 9E 00009 MOVAB START X89 : 
SE 10 ¢2 0000E SUBL2 #16, SP : 
50 04 aC 7D 00011 MOvO SCB, RO : 3807) 
52 0248 CO b0 00015 MOVL 584(RO), R2 : 
54 024C CO DO OOO1A MOVL 588(RO), R4 : 380 
57 0254 CO 00 0001F MOVL 596(RO), R7 : 380 
53 0258 CO dO 00024 MOVL 600(RO), R3 : 381 
56 025¢ CO d0 00029 MOVL  604(RO), R6 : 381 
7E b4 0002€ CLRL CURRENT LEN : 
04 AE 0200 8F ¢ 909 0 MOVZ2WL #512, STRING P > 385 
08 AE 04 Al 00 00036 OVL  4(R15, STRING PTR+4 : 385 
5 0c AC dO 00038 MOVL  RET_LEN, R5 > 385 
65 B4 0003F CLRW (RSJ : 
58 0098 CO 9E 00041 MOVAB 152(RO), R8 : 389 
50 0D 00046 PUSHL RO : 386 
0000v CF gi FB 0048 CALLS #1, FILE_OPEN ; 
03 ; 9040 BLBS RO 1$ : 
0162 31 5 BRW 19§ : | 
51 10 AS dO 00053 1$: MOVL T(R3), FILE_SIZE > 3866 
| ae ! 005 TSTW Z0(R ) : 3867 
06 005A BNEQ $ ; 
1 05 0005C¢ TSTL FILE_SIZE : 3868 
02 13 0005 BEQL 2$ ; 
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SEPARATE Print Symbiont -- separation routines a. $ep-1984 02:23:03 AX-11 Bliss-32 V4.0-74 P 1 
Sh n001 GET Fite. DESCRIPTION = Create a Sentence Descri 14- ~8en-1984 95:43:93 PATSMB SRE ISEPANATS 03552 age 101 
50 DD OO10E 128: PUSHL FORMAT 1 3934 
AE 9F 0011 PUSHAB STRING_PTR : 
AE 9F 0011 PUSHAB CURRENT_LEN : 
FF CS OF 00116 PUSHAB RECORD_ FORMAT : 
OD 11 OO11A B 14$ : 
7E 3F A2 9A 0011C 13$:  MOVZBL 63(R2), -<SP) + 3942 
08 AE 9F 001 9 PUSHAB STRING. PTR : 
08 AE OF 01 PUSHAB CURRENT_L : 
80 AD 9F 00126 PUSHAB RECORD re FORMAT : 
6A 04 re 00129 148: CALLS #4 SrA : 
65 6E AO 0012C ADDWg CURRENT. L (R5) : 3944) 
08 AE of co 0012F ADDL CURRENT LEN STRING. PTR+4 : 3945 | 
04 AE 6 g 00133 MOVZ2WL (RS), STRIN : 3946) 
04 AE 00000200 &F 04 AE C3 00137 SUBL3. STRING PTR, w5I2, STRING_PTR : 
06 1E  A2 01 al 00141 BBC #1, 30TR2) : 3950 
50 7F =6A9 SE 00146 MOVAB P.ACD, ATT 2 RIBUTES : 3952 
1¢ 11 0014A BRB s«18$ ; | 
07 1E A2 €E9 0014C 15$ BLBC 30(R2), : 3955. 
50 0090 C9 9E 00150 MOVAB P.ACE, ATSRIBUTES > 3957) 
11 11 00155 BRB 18$ : 
07 1E  A2 02 €1 00157 168: BBC #2, 30(R2), 17$ > 3960. 
50 ooBc §46C9) «(OSE 0015¢ MOVAB P.ACF, ATTRIBUTES : 3963, 
05 11 00161 BRB 18$ : 3962 
50 OODE C9 9E 00163 178: MOVAB P.ACG, ATTRIBUTES : 3965 | 
50 DD 00168 18$: SHL ATTRIBUTES : 3974) 
08 AE 9F OO16A PUSHAB STRING PTR : 
08 AE 9F 0016D PUSHAB CURR $ 
B8 A9 9F 00170 PUSHAB CAR RRL AGE’ EORMAT : 
6A 04 FB 00173 CALLS SYSSFAO 3 
65 6E AO 00176 ADDW CURRENT LEN : 3976) 
08 AE 6— 0 00179 ADDL CURRENT “tEN. STRING. PTR+4 : 3977 
04 AE 65 3¢ 0017D MOVZWL (R5).S ING_P : 3978 | 
04 AE 00000200 8F 04 AE C3 00181 SUBL3 STRING_ PTRY S12, STRING_PTR ; | 
01 53 91 00188 CMPB RS, #1 ; 3980) 
36 13 0018E BEQL 208 ; 
54 DD 00190 PUSHL RECORD_SIZE : 3987) 
08 AE 9F 00192 PUSHAB STRING-PTR : 
08 AE 9F 00195 PUSHAB CURRENT_LEN : | 
AC AY 9F 00198 PUSHAB REC_SIZE 3 | 
6A 04 FB 0019B CALLS #4, ~SYS$FAO ; | 
65 6E AO 0019E ADDW2  CURRENT_LEN, (RS) : 3989 | 
08 AE 6£ co 001A1 DDL2 CURRENT-LEN, STRING_PTR+4 : 3990 | 
04 AE 65 c 001A5 MOVZWL (RS), STRING PTR : 3991 
04 AE 00000200 &F 04 AE C O0149 SUBL3 STRING PTR, #512, STRING_PTR ; | 
11. 11 00183 BRB 0$ : 3861 
58 oD 00185 19%: PUSHL R8 : 4002 | 
08 AE 9F 001B7 PUSHAB STRI ; | 
08 AE OF O01BA PUSHAB CURRENT LEN : 
F8 AS 9F 001BD PUSHAB FOR ; 
6A 04 FB O10 CALLS SYSSF ; 
65 6— BO 001C MOVW CURRENT Tete (R5) > 4004 
0200 =8F 65 B1 001C6 208: CMPW RS), > 4008 
05 1B 001CB BLEQU 218 ; 
65 0200 8F BO 001CD OVW #512, (RS) > 4011. 
04 001D2 21$: T > 4016 
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mbiont seperat on routines 1- me 1384 98: ¢3: 93 ai otne tat sibabate.c 


NAME = Get Name of the Current File 14-Sep-19 
paces *"GET_FILE_NAME = Get Name of the Current File’ 


i Functional Description: 
This routine creates a phrase with the name of the current file. 
Formal Parameters: 
- Address of the SCB 
STR_DESC - Desc of String to Return 
RET_LEN - Return Length of Desc. 


Implicit wesc 
Implicit ares: 
ne 


Returned ata 


eee ed ee ee ee ee ee ee ee | 


Side Effects: 
none 


ROUTINE GET FILE NAME (¢ 


CB : REF $BBLOCK, ' $cB 
EXPECTED_LEN ® ! Maximum Length allowed 
STR_DESC™ : REF VECTORC2), ' Output buffer desc 
RET_LEN : REF VECTOR L,WORDJ ! Return length (word) 
) : NOVALUE = 


ia" 
SENT vias, SDESCRIPTOR ( 


LOCAL 
BUFFER H veers (512,byte], 
LENG : VECTOR (1), 
NAME : VECTORE2); 
NAMECSIZEJ] = ZALLOCATION(BUFFER); ! allocate for routines 
NAMECADDR) = BUFFER; ! init address 
$FAO ( yell FORMA 
AMELSITE0.. ' return Length 
NAM ' address of string 
$cB PSM$Q_FILE_SPECIFICATION), ! file name 
LENGCO] = .EXPECTED_LEN; ! must be reference to word for call 


IF .RET_LENCO) GTR .EXPECTED_LEN THEN 
Trim the file spec to fit. 


LIBSTRIM_FILESPEC ( WARE esteed ESCCOJ, LENGCO), 
—- STR_ ScEStz E}) 
BEGIN 


STR_DESCCSIZE] = .NAMECSIZE); 


vO4-001 


08 AC 


; Routine Size: 
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Print Symbiont == separation routines 1s Sep-1984 3 AX-11 Bliss-32 V4.0-74 
GET-FIL¢. NAME = Get Rane of the Current File 14-Sep Or} 984 93: 3: 83 PRTSMB. SREISEPARATE {04952 
age 3 OND: -DESCCADDRI = »NAMECADDRI; 
4076 ; 
rete RET ‘seated = .STR_DESCCSIZE); 
4079 $ io SS$_NORMAL ; 
4080 1€E 
53. 41 21 01948 P.ACI: .ASCII \!AS\ 
0194B BLK 1 
00000003 0194C P.ACH: .LONG 3 
00000000" 01950 ADDRESS P.ACI 
SENT_FORMAT= P.ACH 
0004 00000 GET_FILE_NAME: 
»WORD Save R2 
5E FDF4 CE 9E 00002 MOVAB -524(SP), SP 
04 AE 0200 8F 3C 00007 MOVZWL #512, NAME 
08 AE 0c AE 9€E 0000D bey BUFFER NAME +4 
7E 04 AC 00000098 8F C1 00012 ADDL , §CB, -(SP) 
08 AE 9F 0001B PUSHAB NAME 
OC AE 9F OOOIE PUSHAB NAME 
D4 AF 9F 00021 PUSHAB SENT FORMAT 
000000006 00 04 FB 00024 CALLS SYSSFAO 
6E 08 AC 00 00028 MOVL EXPECTED LEN, LENG 
52 0c AC DO 0002F MOVL STR_ DESC, R2 
10 BC 10 00 ED 00033 CMPZV +f “#16, @RET LEN, EXPECTED_LEN 
13 15 0003A BLEQ 1$ 
52 DD 0003C PUSHL R2 
04 AE 9F O003E PUSHAB LENG 
52 DD 00041 USHL R2 
10 AE 9F 00043 PUSHAB NAME 
00000000G 00 04 FB 00046 CALLS #4, LIBSTRIM_FILESPEC 
04 11 00040 BRB 2s 
62 04 AE 7D QOO4F 1$ MOVQ NAME, (R2) 
10 BC 62 BO 00053 2$ MOVW  (R2), @RET_LEN 
04 00057 RET 


88 bytes, Routine Base: CODE + 1954 
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SEPARATE Print Symbiont <= separation routines 16-Sep-1984 05:93:03 AX-11 Bliss-32 ree cas Page 105 
v04-001 INSERT _FILENAME BANNER = Get Name of the Curren 14-Sep-1984 22:52:26 PRTSMB.SRCJSEPARATE.B32;2 (28) 
: 3161 4081 1 Xsbttl ‘INSERT_FILENAME_BANNER = Get Name of the Current File’ 
; 316 ret 1 ite k 
; 316 4085 1 ! Functional Description: : : 
; 3164 4084 1! This routine creates a banner phrase with the name of the current file. 
; 3165 4085 1! Algorithm: ; ; 
; 3166 4086 1! If the Filename, Type, and Version (FTV) fits on one Line 
: 3167 4087 1! If only one banner Line exists.... 
; 3168 4088 1! insert FTV on only ONE Line 
; 3169 4089 1! : 
; 3170 4090 1! If there are Three banner Lines available... 
; 3171 4091 1! insert Filename on one, Type on 
; 3138 4092 1! another, and Version on third 
3 S17 4095 1! 
; 3174 4094 1! Otherwise... insert Filename on one, Type and 
; 3175 4095 1! Version on the second 
: 3176 4096 1! 
; 3177 4097 1 ! Formal Parameters: 
; 3178 4098 1! $¢B - Address of the SCB 
; 3179 4099 1! STR_DESC - Desc of String to Return 
; 3180 4100 1! RET_LEN - Return Length of Desc. 
; 3181 4101 1! 
; 3182 4102 1 ! Implicit Inputs: 
; 3183 4103 1! none 
> 3184 4106 1! 
>; 3185 4105 1! Implicit Outputs: 
: 3186 4106 1! none 
; 3187 4107 1! 
: 3188 4108 1 ! Returned Value: 
; 3189 4109 1! non 
: 3190 4110 1! 
; 3191 4111 1 ! Side Effects: 
; 3192 4112 1! none 
; 3193 4113. 1 !-- 
: 3194 4114 1 ROUTINE INSERT_FILENAME_BANNER ( 
3; 3195 4115 1 SCB : REF $SBBLOCK 
: 3196 4116 1 STR DESC : REF VECTORCC), 
3 3197 4117 1 FRAME _PTR : REF PAGE_ARRAY, 
; 3198 4118 1 FRAME _WIDTH ¥ : Number of Columns 
3; 3199 4119 1 FRAME _LENGTH ! Number of Rows 
; 3200 4120 1 ) = 
; 3201 4121 2 BEGIN 
; 3202 4122 2 LITERAL 
: 3203 4123 2 BIG_BANNER = 14, 
3 $508 rise § LITTLE_BANNER = 7, 
; 3205 4125 SMALL = 2, 
; 3206 4126 2 LARGE = 1; 
3; 3207 4127 § 
; 3208 4128 LOCAL 
; 3209 4129 2 RET _LEN VECTORC1), 
: 3210 4130 2 PAGE_PTR REF PAGE_ARRAY, 
; $513 4131 2 SPACING ° 
; 3212 $136 2 CURRENT_PTR , 
: 3213 413 § FTV_LEN : VECTORC1), 
3 e5i¢ 4134 BANRER_TYPE , 
3 3215 4135 2 BANNER SIZE , 
; $518 4136 § MAX_BAR_CHARS, 
; 3217 4137 “ROWS ° 
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SEPARATE Print Sybie ont == separation routines 18-Sep-1984 0g:93:9% AX-11 BLi et: -32 v4.0-7 
-001 INSERT_FILENAME_BANNER = Get Name of the Curren 14-Sep-1984 22:52:26 PRTSMB.SRC SEPARATE.B3 i2 
: 3218 1138 MAX _COLS ° 
3 si8 4139 NAME : VECTOR(2]), 
: 20 4140 TYPE : VECTOR 
; 3221 4141 VERS : VECTORL2); 
; $s¢ aic6 
3 Be 414 ' dont even try if there is no frame left 
: 3224 4144 ¢ ' 
: 3225 4145 IF (.FRAME_LENGTH LSS 7) 
; 3226 4146 2 THEN 
: 3227 4147 2 RETURN 0; 
; 3228 4148 
3 3563 4149 PARSE_FILE_NAME (SCBCPSM$Q -FILE SPECIFICATION], FSCNS_NAME, NAME); 
; 3230 4150 PARSE_FILE_NAME (SCBCPSM$Q_FILE-SPECIFICATIONJ, FSCNS_TYPE, TYPE); 
3 $52) $12) $ PARSE_FILE_NAME (SCBCPSMS$Q_FILE ~ SPECIFICATION]. FSCNS_ VERSION, VERS); 
3 $238 4138 § FTV_LENCO] = .NAMECSIZE] + .TYPECSIZE] + .VERSCSIZE); 
: 3235 4155 2 BANNER_TYPE = BIG BANNER; 
; 3236 4156 2 BANNER SIZE = ; 
3 eSe0 clef § SPACING = SMALL; ! two spaces between banner rows 
; 3239 4159 2 MAX_BAN_CHARS = (.FRAME Swett y * (,FRAME_WIDTH/12); 
: 3240 4160 2 MAXROWS = .BANNER_SIZE~* (.FRAME_LENGTH / 16); 
z ie ales § MAX_COLS = «BANNER_SIZE * (.FRAME_WIDTH / 12); 
3 3243 4163 2 IF .MAX_BAN_CHARS LSS .FTV_LENCO] 
3: 3244 4164 ¢ THEN 
: 3245 4165 BEGIN 
: 3246 4166 3 BANNER_SIZE = SMA 
> 3247 4167 3 BANNER"TYPE = raTtte _BANNER; 
; 3248 4168 3 SPACING = LARGE; ! single space banner rows 
; 3249 4169 3 MAX_ROWS = .BANNER_SIZE * (.FRAME_LENGTH / 18); 
s 3250 4170 3 MAX_COLS = .BANNER_SIZE * C FRAME_WIDTH / 14); 
s iol 4171 2 : 
: 3252 4172 2 
; 3253 4173 2 . 
; 3254 4174 2 ! Do somemore calculations to ensure consistent letter sizing | 
; $522 212? 3 'X! Just to gte this out the door... needs to be optimized later.rb 
: 3257 4177 4 IF ¢ (.NAMECSIZE] GTR .MAX_COLS) 
: 3258 4178 3 
; 3259 4179 4 (.TYPECSIZE] GTR .MAX_COLS) 
: 3260 4180 3 
: 3261 4181 4 (.VERSCSIZE] GTR .MAX_COLS) 
3: 3262 ois 3 OR 
; 3263 4183 4 ( (.MAX_ROWS LSS 3) A 
3 $508 rt ; ((. TYPECSIZEJ™+ VERSESIZEI) OGTR -MAX_COLS) 
3 3266 4186 4 (.FTV_LENCOJ] GTR (.MAX_COLS * .MAX_ROWS)) ) 
: 3267 4187 3 ) 
; 3268 4188 ¢ THEN 
3: 3269 4189 BEGIN 
: 3270 4190 BANNER_SIZE = SMALL; 
: 3271 4191 BANNER-TYPE = LITTLE_BANNER; 
; 3272 rh SPACING = LARGE; ! single space banner rows 
3; 3273 419 ; MAX_ROWS = .BANNER_SIZE * (.FRAME_LENGTH / 18); 
3 3274 4194 MAX_COLS = -BANNER— SIZE * (, FRAME _W WIDTH / 14); 
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H § 
rint ont == separation routines 16-Sep-1984 23:03 
NSERT YT RANE BANNER = Get Name of the Curren 14- olen 138 95:93:93 
13 END; 
2 ' ; Attempt to fit the filename, type, and version on one Line 
9 it (.FTV_LENCO] LEQ .MAX_COLS) ' insert on one Line 
0 ! only if Little banner 
_ . ~-BANNER_TYPE EQL LITTLE_BANNER) 
0 NBEGIN 
0 CURRENT_PTR = .STR_DESCCADDRI; 
0 CURRENT-PTR = CHSMOVE(.NAMECSIZE], .NAMECADDR], .CURRENT_P 
0 CURRENT_PTR = CHSMOVE(.TYPE SIEa: -TYPECADDRJ, .CURRENT_P 
0 CURRENT-PTR = CHSMOVE(.VERS(SIZEJ,. .VERSCADDR » »CURRENT_P 
S STR MOESTESIZE) © -FTV_LENCO); 
INSERT_NAME_BANNER (.SCB, 
STR DESCCSIZEJ, fe name desc 
FRAME _PTRCO,0,. SCBLPSMSL_ PAGE_WIDTHJJ, 
T ref to frame 
-FRAME_WIDTH, ' max width Bann 
BANNER _TYPE, ! frame Length 
BANNER_TYPE); ! max hght 


RETURN .BANNER_TYPE; 
ND 


if ¢ (.MAX_ROWS LEQ 1) ) 
'X! a single Line when two Lines would be more appropriate. 


OR 
(.NAMECSIZE] GTR .MAX_COLS) 
(.TYPECSIZE] GTR .MAX_COLS) 
(.VERSCSIZEJ ot aad vcs COLS) 


( ROWS LSS 3) 
((, TYPECSI2E 0” + VERSESIZE1) GTR -MAX_COLS) 


(.FTV_LENCOJ] GTR (.MAX_COLS * .MAX_ROWS)) ) 


ee te ee ee 


BEGIN 
CURRENT_PTR 


= ,STR_DESCCADDRI; 
CURRENT-PTR = CHSMOVE(.NAMECSIZEJ, . -NAMECADDR, , «CURRENT_PTR); 
CURRENT-PTR = CHSMOVE(.TYPECSIZEJ, .TYPELADDRJ, .CURRENT-PTR): 
CURRENT~PTR = CHSMOVE(.VERSCSIZEJ. .VERSCADDRJ. .CURRENT~PTR): 
'X! This is a cludge to get this out the door. I will declare a valid 
LIBSTRIM_FILESPEC. 


descriptor in the future and use 
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4 STR_DESCCSIZE] = .FIV_LENCO); 
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AX-11 Bliss-32 V4.0-74 
PRTSMB.SRCJSEPARATE .B32; 


<u 


return how much space used 
Move filename with truncated banners when not enough space 


'X! Comment this out .... causes too many filenames to be printed on 
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354-001 INSERT FILENAME BANNER = Got None of the Curren 1cakeb-1904 93,83156 | HeM Teh es see tae os5. 2 298 38) 
33 4 26 

? e7 u -NAMECO] GEQ .MAX_COLS 

4255 (STR_DESCCSIZE] = .MAX_COLS) 

4256 ELS 

4 of ate -NAMECOJ]+.TYPECO] GTR .MAX_COLS 


Ae DESCCSIZE] = .NAMECO) 
IF ((.NAMECO]+TYPECOJ+VERSCOJ) GTR .MAX_COLS) 
STR_DESCCSIZE] = .NAMECO]+.TYPECO]); 
Oe a aes GTR (.MAX_ROWS * .MAX_COLS) 
Trim the file spec to fit. 
LISSTRIAF ILESPEC ( “i whet STR_DESCCOI, 
STR_BESCCSIZE)); 


RET_LENCO] = INSERT_NAME_BANNER ( 


ie 

STR_DESCCSIZEJ], ! job name desc 

FRAME_PTRCO,0,.SCBLPSMSL_PAGE_WIDTHJJ, 
! ref to frame 

~FRAME_WIDTH, ' max width Bann 

~BANNER_TYPE ! frame length 

-BANNER-TYPES; | max hght Bann str 


— -RET_LENCOJ; ! return how much space used 
wee cis ! Should be able to insert it... Make it pretty 
IF .MAX_ROWS GEQ 3 
THEN 
BEGIN 


PAGE _PTP = FRAME PTRCO,0,.SCBCPSM$L_PAGE_WIDTHJ]; 
NSERT SANE, BAOeER ( 
NAMECS1Z 
PAGE_PTR 
~FRAME_WIDOTH, ' max width Bann 


~BANNER_TYPE ! frame length 
-BANNER_TYPES; ! max hght Bann str 


PAGE_PTR = PAGE_PTRCO,(.BANNER_TYPE+. SPACING), 
. SCBLPSM$L~PAGE_WIDTHJJ; 
INSERT_NAME_BANNER ( 


Tveetsize]. ! file type 
PAGE _PTRLO,0,.SCBCPSM$L_PAGE_WIDTHI) 

' ref to frame 
-FRAME WIDTH, ! max width Bann 


PAREN AAAGI I BB BE EE EWA 


Ser 
SALA 


Ej, ' file name 
[0°0,.SCBLPSM$L_PAGE_WIDTHJ], 
' ref to frame 
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PAGE PTR = FRAME PTRCO,0,.SCBCPSM$L_PAGE_WIDTHI); 
INSERT_NAME ae NNER ( 


NAMEES1 SIZE], ' file name 
PAGE_PTRCO,0,.SCBCPSM$L_PAGE _WIDTHIJ, 
' ref to frame 


oo 

rint eset -- separation routines 16-Sep- =138¢ Og: ¢3: 93 AX-11 Bliss-32 V4.0- 038. 
NSERT_FILENAME BANNER = Get Name of the Curren 14-Sep-1984 6 PRTSMB.SRC SEPARA TE.B32;2 
0 -BANNER_TYPE ! frame length 

“BANNER TYPES; i max hght Bann str 

1 PAGE_PTR = PAGE_PTRCO,(.BANNER_TYPE+.S rornage° 

1 . SCBLPSMSL-PAGE_WIDTHJJ; 

1 INSERT_NAME_BANNER ( 
31 SCB 
31 wenstst 176}. ! file version number 
31 RCO,0,.SCBLPSMSL_PAGE WIDTH > 

31 ref to frame 
31 FRAME _WIDTH, max width Bann 

3 “BANNER” TYPE ! frame length 

: BANNER ~ “TYPES; ! max hght Bann str 
3 RETURN (3 * (.BANNER_TYPE + .SPACING)); ! return count of used 
3 ! space 

3 END 
3 ELSE 
3 BEGIN 
3 CURRENT_PTR = .STR_DESCCADDRI; 
3 CURRENT “PTR = cHeROvE } TYPECSIZE], .TYPECADDR], .CURRENT_PTR); 

3 CURRENT PTR = HSMOVE( -VERSCSIZE], *VERSCADDR], * CURRENT “PTR); 

; STR ROESTESIZE) © TYPECSIZE] + .VERSCSIZEJ; 

3 


E_WIDTH, ! max width Bann 
"BANNER T TYPE i frame Length 
“BANNER “TYPES; ! max hght Bann str 


PAGE_PTR = PAGE -PTRLO, ( .BANNER_TYPE+.SPACING), 
CBCPSMSL~PAGE_WIDTHJJ; 
INSERT_NAME_BANNER ( 
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34 

34 

34 

34 STR_DESC CCSIZEJ, ! file and version type 
34 PAGE_ PTRCO,0,.SCBCPSM$L_PAGE -WIDTHII, 

34 ref to frame 

35 WIDTH, max width Bann 

35 “BANNER” TYPE ' frame length 

32 -BANNER~TYPES; ! max hght Bann str 

35 RETURN (2 * (.BANNER_TYPE + .SPACING)); ' return count of used 
35 ! space 

35 END; 

35 END; 

35 END; 

35 END; 


OFFC 00000 INSERT_F ILENAME_BANNER: 
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INSERT_FILENAME_BANNER = Get Name of the Curren 14-Sep-1984 PRTSMB.SRCJSEPARATE. 83 32 (28) 
.WORD Saye R2,R3,R4,R5,R6,R7,R8,R9,R10,R11 2 4114 : 
SF 20 C2 90002 SUBL2 ,_SP : ; 
07 14 aC D1 0000 CMPL - FRAME_LENGTH, #7 + 4145 ; 
03 18 00009 BGEG §=—s«s1$ : | : 
0211 31 00008 BRW 12$ : ; 
18 AE 9F OOOOE 1$ PUSHAB NAME > 4149 ; 
06 DD 00011 PUSHL #6 : | ; 
50 04 Ac 00000098 &8F a 00013 ADDL3 #152, SCB, RO : ; 
52 $0 E 0001C MOVAB (RO), Re : ; 
: DD O001F PUSHL R : : 
ECSF CF 03 FB 00021 CALLS #3, PARSE_FILE_NAME : | ; 
10 ag oF 0006 PUSHAB TYPE > 4150 ; 
07 DD 00029 PUSHL #7 : | ; 
32 DD 00028 PUSHL i : | ; 
ECS3 CF 03 FB 000¢0 CALLS # ; <P ARSE_FILE_NAME : | ; 
08 AE 9F 00032 PUSHAB : 4151 | ; 
08 DD 00035 PUSHL } : | ; 
32 DD 00037 PUSHL Re : : 
EC47 CF 03 FB 00039 CALLS #3, PARSE _FILE_NAME : | ; 
58 18 AE DO 0003E MOVL AME, R > 4153, ; 
04 AE 10 BE4B 9E 00042 MOVAB arveecnt1] 4(SP) : | ; 
6E 04 AE 08 AE C1 00048 ADDL3 VERS, 4(SPS, FTV_LEN : | ; 
57 OE DO 0004E MOVL #14, BANNER R’ TYPE~ : 4155) ; 
50 01 D0 00051 MOVL #1, BANNER SIZE > 4156) ; 
54 02 DO 00054 MOVL_ #2, SPACIN : 4157) : 
52 14 AC 10 ¢? 00057 DIVL3 #16, FRAME LENGTH, R2 ; 4159) : 
5A 10 AC DO 0005¢ MOVL. FRAME_WIDTA, R10 ; | ; 
51 SA OC C7 00060 DIVL3 #12, ri ; ; 
53 52 51 ¢5 00064 MULL3 R1, R2, MAX_BAN_CHARS ; | ; 
59 50 52 C5 00068 MULL3 R2, BANNER_SIZE; MAX_ROWS : 4160) 3 
56 50 51 ¢5 0006C MULL3 1, BANNER-SIZE, MAX-COLS : 4161 ; 
6E 53 D1 00070 CMPL MAX_BAN_CHARS, FTV ‘TEN 3 4163 : 
1A 18 00073 BGEG ; : 
50 02 00 00075 MOVL #2, BANNER_SIZE > 4166 : 
57 07 DO 00078 MOVL a. BANNER. TYPE > 4167 | F 
54 01 DO 00078 MOVL PACING > 4168) : 
51 14 AC 12 C7? O007E DIVL3 118, SFRAME.L ENGT H, R1 > 4169 | : 
59 51 50 C5 0008 MULL3 BANNER SIZE, R1, MAX_ROWS 3 | 3 
51 5A OE C7 00087 DIVL3 RTO : 4170 | ; 
56 51 50 ¢5 00088 MULL3 BANNER size. Air MAX_COLS ; ; 
56 5B D1 OOO8F 2%: CMPL , MAX_C > 4177) F 
25 14 00092 BGTR as ; ; 
56 10 AE D1 00094 CMPL _—siTYPE, rine > 4179) ; 
1F 14 00098 BGTR ; ; 
56 08 AE 01 Q009A CMPL VERS, MAX_COLS ; 4181. ; 
19 14 0009E BGTR ; ; 
03 59 D1 000A0 CMPL § _MAX_ROWS, #3 : 4183. ; 
0B 18 000A3 BGEG : | ; 
51 10 AE 08 AE C1 000A5 ADDL3 VERS, APE R1 > 4184. ; 
56 51 D1 OOOAB CMPL R1, MAX_COLS ; : 
09 14 OOOAE BGTR. 48° : 
51 56 59 5 000B0 38: MULL3 MAX_ROWS, MAX_COLS, R1 > 4186 
51 6— D1 90084 CMPL  FTVTLEN, R1 ; | 
1A 15 00087 BLEQ 46 S$ ; | 
50 0@ D0 00089 4$: MOVL © #2, BANNER. SIZE : 4190. 
57 07 DO 000BC MOVL ; BANNER-TYPE : 4191. 
54 01 DO 000BF MOVL He SPACING > 4192 
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954-001 INSERT. FILENAME _BANN R = Get Name of the Curren 12-Sep-19 4 95:93:93 PRTSMB.SRC SEpAMATE .039;2 9° 28) 
51 16 aC 12 C7 000C¢ DIVL3 #18, FRAME_LENGTH, R1 3 4193 
59 51 35 C3 $0c9 MULL BANNER_SIZE, R1, MAX_ROWS : 
51 SA OF C7 000CB DIVL . Ri + 4194 
56 51 50 ¢5 O00CF MULL3 BANNER SIZE, R1, MAX_COLS : | 
56 i bi 0003 5$ CPL FTV_LEN, MAX_COLS S 4199) 
07 3 D1 a9008 CMPL § BANNER_TYPE, #7 : 4201 
3 if} 00DB BNEG : 
58 08 AC 00 000DD MOVL T st, 3 4204 | 
53 04 AB® DO 000E1 MOVL. 4(RB), CURRENT_PTR : | 
63 1¢ «BE 5B 28 OOOES MOVC3 @NAME+4, TCURRENT_PTR) + 4205. 
63 14 BE 10 AE : OOOEA MOVC3 TYPE, aTYPE+4, (CURRENT_PTR) > 4206. 
63 OC BE 08 AE O0FO MOVC3 VERS, @VERS+4, (CURRENT~PTR) + 4207 
68 of DO 000F6 MOVL  FTV_LEN, (R8) + 4208 | 
57 DD 000F9 PUSHL BANNER_TYPE : 4216 | 
57 DD 000FB PUSHL BANNERTYPE + 4215. 
SA DD OO0FD PUSHL R10 > 4214) 
Oc AC DD OOOFF PUSHL FRAME_PTR + 4212. 
58 DD 00102 PUSHL RB : 
04 AC DD 00104 PUSHL  SCB ; | 
0000v CF 06 FB 00107 CALLS #6, INSERT_NAME_BANNER : | 
50 57 00 0010C MOVL BANNER_TYPE, RO 3 4221) 
04 0010F RET : | 
01 59 D1 00110 6$ CMPL § MAX_ROWS, #1 + 42246 
SA 14 00113 BGTR $ : 
58 08 AC 00 00115 MOVL  STR_DESC, > 4243) 
53 04 AB& DO 00119 OVL. 4(RB), CURRENT_PTR : | 
63 te. 6 UC - 5B 28 0011D MOVC3 R11, @NAME+4, TCURRENT_ PTR) + 4244 
63 14 BE 10 AE 28 00122 MOVC3 TYPE, aTYPE+4, (CURRENT_PTR) + 4245) 
63 OC BE 08 AE 28 00128 MOVC3 VERS, @VERS+4, (CURRENT~PTR) + 4246 
68 6£ DO 0012E MOVL FTV_LEN, (R8) > 4251. 
56 5B D1 00131 CMPL R117 MAX_COLS : 4253. 
05 19 00134 BLSS 7$ ; 
68 56 DO 00136 MOVL § MAX_COLS, (R8) + 4255 
20 11 00139 BRB 9$ ; 
56 04 AE 01 00138 7$ CMPL  4(SP), MAX_COLS : 4257 
05 15 0013F BLEQ ; | 
68 5B D0 00141 MOVL R11, (R8) : 4259. 
15 11 00144 BRB 9$ ; 
50 10 AE 9E 00146 8$ MOVAB TYPE, RO + 4261 
50 08 AE4O 3 0014A MOVAB VERSCROJ, RO : 
50 5B CO O014F ADDL2 : F 
56 50 D1 00152 CMPL RO, MAX_COLS : | 
04 15 00195 BLEG ; 
68 04 AE d0 00157 MOVL  4(SP), (RB) : 4263. 
5? DD 00158 9$ PUSHL BANNER_TYPE > 4281 | 
57 DD 0015D PUSHL BANNER TYPE : 4280 
SA DD 0015F PUSHL R10 : 4279 | 
0c AC DD 00161 PUSHL FRAME_PTR : 4277. 
58 DD 00164 PUSHL R8 ; | 
04 AC DD 00166 PUSHL  SCB ; | 
0000v CF 06 FB 00169 CALLS #6, INSERT_NAME_BANNER : 
04 0016E RET > 4286 
Oc ac 00 O16 10$:  MOVL_ - FRAME_PTR, PAGE_PTR + 4291 
58 57 54 C1 00173 ADDL SPACING BANNER-TYPE, R8 : 4301 
50 04 AC 00000200 &8F ¢1 00177 ADDL3 #512, SCB, RO > 4302 
58 60 9E 00180 MOVAB (RO). R11 : 


Mm 5 
SEPARATE Print Symbiont == separation routines 16-Sep-1984 93:33:03 AX-11 Bliss-32 V4.0-7 Page di 


INSERT_FILENAME_ BANNER = Get Name of the Curren 14-Sep-1984 PRTSMB.SRCJSEPARATE. b3 i2 (28) 
03 59 D1 00183 CMPL MAX_ROWS, #3 : 4287 
4c 19 001 é BLSS 1187 : | 
; DD 001 PUSHL  BANNER_TYPE + 4299. 
7 DD 0018A PUSHL  BANNER-TYPE + 4298 
0440 8F BB 018¢ USHR  #*M<R67R10 : 4295. 
ee AE F 8138 PUSHAB AME s 4294) 
4 AC DD 0019 PUSHL SC + 4295 | 
0000v CF 06 FB 0196 CALLS #6, INSERT_NAME_BANNER : | 
50 58 6B ¢5 00198 MULL (R11), R8,~ + 4302 
56 20 CO 0019F ADDL2 0, PAGE PTR : 
5 DD 001A2 PUSHL BANNER_TYPE 3 4310) 
57 DD OO1A4 PUSHL BANNER-TYPE + 4309 | 
0440 8F BB 01A6 PUSHR #*M<R67R10> + 4306 
20 AE 9F OO1AA PUSHAB TYPE + 4305 
04 AC DD OO1AD PUSHL  SCB + 4306 | 
0000v CF 06 FB 00180 CALLS #6, INSERT_NAME_BANNER : 
50 58 68 C5 00185 MULL (R11), R8,~ + 4313 
56 50 ¢O 00189 ADDL2 RO, PAGE_PTR : 
57 DD 001BC PUSHL BANNER_TYPE 3 4321 
57 DD OO1BE PUSHL BANNER _ ives : 4320 
0440 8F BB 001C0 PUSHR #*M<R6>R10> 3: 4317 
18 AE 9F 001C4 PUSHAB VERS + 4316 
04 AC DD 001C7 PUSHL : 4317 
0000v CF 06 FB OO1CA CALL ie. INSERT_NAME_BANNER : 
50 58 03 C5 OOICF MULL RO + 4323 
04 00103 RET + 4327 
59 08 AC DO 00104 118 MOVL STR_DESC, R9 + 4328 
53 04 AY DO 00108 MOVL 4(R9), CURRENT_PTR $ 
63 14 BE 10 AE 28 0010¢ MOVC3 TYPE, aTYPE+4,~(CURRENT_PTR) + 4329 
63 OC BE 08 AE 28 OO1E2 MOVC3 VERS. @aVERS+4. (CURRENT-PTR) + 4330 
69 10 AE 08 AE C1 OO1E8 ADDL3 VERS, TYPE + 4331 
57 DD OO1EE PUSHL BANNER_TYPE + 4341 
57 DD 001FO PUSHL BANNER“TYPE + 4340 
0440 8F BB OO1F2 PUSHR #*°M<R6,R10> : 4337 
28 «AE OOF O001F6 PUSHAB NAME : 4336 
04 AC DD 001F9 PUSHL  SCB : 4337 
0000v CF 06 FB OOTFC CALL #6, INSERT_NAME_BANNER 
50 58 6B C5 60201 MULL3 (R11), RB,"R + 4344 
56 50 ¢0 00205 ADDL2 RO, PAGE PTR : 
57 DD 00208 PUSHL  BANNER_TYPE t 4352 
57 DD OO20A PUSHL BANNER“TYPE + 4351 
0440 8F BB 0020C PUSHR #*M<R67R10> + 4348 
59 DD 00210 PUSHL Ro : 
04 AC OD 8 \¢ PUSHL 3 
0000v CF 06 FB 021 CALLS 36. INSERT_NAME_BANNER : 
50 58 01 78 OO21A ASHL #1. R8, RO : 4354 
04 O021E RET : 4221 
50 D4 0021 12$:  CLRL RO > 4359 
04 00221 RET ; 
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Print Sy 

INSERT. ER = Get Job Number of the 1e-8ep-1984 PRTSMB.SRCJSEPARATE.B3 
3 rk r+ ! peoeet *INSERT_JOBNUMBER_BANNER = Get Job Number of the current Job' 
: 344 tae8 1 ! Functional Description: 
; ret: eae7 : } This routine creates a banner phrase with the Job Number 
> 3446 rhe 1 ! Formal Parameters: 
: 3447 4366 1! - Address of the SCB 
> 3448 4367 1! STR_DESC - Desc of String to Return 
3: 3449 4368 1! RET_LEN - Return Length of Desc. 
; eeee 4369 1! 
: 3451 4370 1 ! Implicit Inputs: 
: 3436 437] 1! none 
; 345 4 Le 1! 
> 3454 4373 1! Implicit Outputs: 
3; 3455 4374 1! ne 
: 3456 4375 1! 
3; 3457 4376 1 ! Returned veluer 
: 3458 4377 1! 
: 3459 4378 1! 
: 3460 4379 1! Side Effects: 
3; 3461 4380 1! 
: 3462 4381 1 i-- 
3; 3463 4382 1 ROUT INE INSERT_JOBNUMBER ‘ce 
3 3464 4383 1 SCB REF $BBLOCK 
> 3465 4384 1 STR_DESC : REF VECTORCC), 
3; 3466 4385 1 FRAME_PTR : REF PAGE_ARRA ' 
; 3467 4386 1 FRAME _WIDTH . ! Number of Columns 
; 3468 4387 1 FRAME LENGTH ! Number of Rows 
3; 3469 4388 1 > s 
3; 3470 4389 2 BEGIN 
3: 3471 4390 2 BIND 
3: 3472 P 4391 2 SENT gf ORMAT = SDESCRIPTOR ( 
3: 3473 P 4392 2 "jOB ' 
> 3474 4393 2 tne ); 
3 3475 4394 2 
3; 3476 P 4395 2 NUM_ Sry By SDESCRIPTOR ( 
: 3477 4396 2 'UL* 
: 3478 4397 2 
3 3479 4398 2 LITERA 
: 3480 4399 2 LETTLE_BANNER = s 
: 3481 4400 2 SMALL = 2, 
3: 3482 4401 2 LARGE = 1; 
: 3483 4402 
: 3484 4403 LOCAL 
3; 3485 4404 RET_LEN : VECTORC1), 
- 86 4405 § AGE_PTR : REF PAGE_ARRAY, 
3; 3487 4406 CURRENT_PTR , 
3; 3488 4407 2 LEN : INITIAL (0), 
3: 3489 4408 § BANRER_TYPE , 
; 3490 4409 SPACIN 
: 3491 4410 BANNER_SIZE 
> 349 4411 MAX_BAR_ Ee 
3; 349 veh | BUFFER : VECTORC10, byte], 
3; 3494 441 MAX EaLS 
; 3495 4414 NUMBER : VECTOR(2); 
3; 3496 4415 
: 4416 


NUMBERCSIZE] = ZALLOCATION(BUFFER); 
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NUMBERCADDR) = BUFFER; 

dont even try if there is no frame left 

iF (.FRAME_LENGTH LSS 7) 

RETURN 0; 

MAX_BAN_CHARS = (.FRAME_LENGTH/16) * (.FRAME_WIDTH/12); 
BANNER oSize = SMA 
BANNER" TYPE = PITtte BANNER; 

SPACING. = LARGE; ! single space banner rows 
MAX_COLS = .BANNER_SIZE * (.FRAME_WIDTH / 12); 


WO CONOUFSWN—OOOn~ 


SFAO ( NUM_FORMAT, a 
' str€size] > fetched namelen < 
NUMBERCO), : 
MSCBERSMat ENTRY _ NUMBER] ! job number 
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eS HEN -JOB_LEN+4) LEQ .MAX_COLS ' insert job&num on one Line hia 


SFAO. ( Hy FORMAT, 


STR DESC 
east tte TENTRY _NUMBER) ! job number 


ve pescCS1ze] = ,JOB_LEN; ! update the size 
ELSE ! copy the string.. num only 
<< LEN LEQ .MAX_COLS 
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BEGIN 

CURRENT . pre = 2Sir DESCCADDR); 
CURRENT PTR = CHSMOVE(. JOB_ LEN, .NUMBERCADDR], .CURRENT_PTR); 
STR. bestC size] os . JOB_LEN; 


ELSE 
ny RETURN 0; ' exit ... No Room 


INSERT_NAME _BANNER ( 


EJ, name desc 
0, * SCBLPSMSL. ms jee WIDTH], 
ref to frame 
od width Bann 
frame length 
! max hght Bann str 
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RETURN .BANNER_TYPE; 
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SEPARATE Print Symbiont -- separation routines 1$- -Se 4 AX-11 Bliss-32 v4. 
‘vo6=001 INSERT > JOBNUMBER “BANNER = Get Job Number of the 14- ety 7 95: $3: 93 PRTSMB.SRC Sebakate 03 :2 
3 3555 4474 1 END; 
| 
| 20 42 4F 4A OIBCE P.ACK: ASCII \JOB \ 
| 4C 55 21 O1BD “ASCII = \!UL\ 
1BD .BLKB 3 
| 90000007 1BD8 P.ACJ: .LONG 7 
0000000" 0180 .ADDRESS P.ACK 
4C 55 21 O1BEO P.ACM: ASCII \!UL\ 
1BE3 -BLKB 1 
90000005 O1BE, P.ACL ONG 3 
00000000" 01BE8 LODRESS P.ACM 
SENT_FORMAT= P.ACJ 
NUM_FORMAT= P.ACL 
O3FC 00000 INSERT_JOBNUMBER_BANNER: 
WORD Save Re, R3,R4,R5,R6,R7,R8B,RI 
59 000000006 00 9€ 00002 MOVAB SYS$FAO, R9 
5E 14 C2 00009 SUBL2 #20, ep’ 
7E D4 0000C CLRL LEN 
04 AE OA DO 0000E MOVL W107 NUMBER 
08 AE OC AE 9E 00012 MOVAB BUFFER, NUMBER+4 
07 14 AC D1 00017 CMPL = FRAME_LENGTH, #7 
76 19 0001B BLSS.) 3 
51 14 AC 10 C7 0001D DIVL3 #16, FRAME “LENGTH, af’ 
50 10 Ac OC C7 00022 DIVL3 #12. FRAME-WIDTH 
51 50 C4 00027 MULL2 , MAX aban C 
2! 02 DO 0002A MOVL ae. BANNER_SIZE 
S 07 00 0002D MOVL = ‘#7, BANNER TYPE 
52 01 D0 00030 MOVL #1, SPACING 
52 51 50 C5 00033 MULL3 RO. BANNER_SIZE, MAX_COLS 
57 04 AC DO 00037 MOVL  SCB, R7 
58 A? DD 00038 PUSHL 88 (R7) 
08 AE 9F GOO3E PUSHAB NUMBER 
08 AE 9F 00041 PUSHAB ‘OB. LEN 
B1 AF 9F 00044 SHAB NUM” FORMAT 
69 04 FB 00047 CALLS a4, “SYSSFAO 
50 6E 04 C1 O004A ADDL3 + JOB. LEN, RO 
52 50 01 O004E CMPL +8 X-COLS 
15 14 0005 BGTR 1 
58 AZ DD 00053 PUSHL  88(R7) 
08 ac dD 00056 PUSHL STR_DESC 
08 AE 9F 00059 PUSHAB JOB~LEN 
8D AF 9F 0005C USHAB SENT FORMAT 
69 04 FB 0005F CALLS SYSS$FAO 
08 BC 6E DO 00062 MOVL ‘08.tEN. a@STR_DESC 
15 11 00066 BRB 
52 6E D1 00068 1$: CMPL JOB_LEN, MAX_COLS 
26 14 00068 BGTR 
56 08 AC 00 0006D MOVL ESC, R6 
53 04 Ab BO 0071 MOVL PRES CURRENT 
63 08 BE 6E 28 00075 MOVC3 JOB_ LEN, SNUMBERS<, (CURRENT_PTR) 
66 of DO O007A MOVL JOBTLEN, (R6 
DD 0007D 2%: PUSHL BANNER_TYPE 
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16- ep-1 AX-11 Bliss-32 V4.0-74 
of the 1 7308-138 95: 3; 93 PRTSMB.SR ROIS SEPARA Ate 645;2 
oD O7F PUSHL BANNER TYPE 
Dd oe mMOVa FRAME_PTR, (SP) 
DD 00085 PUSHL STR_DESC 
DD 00088 PUSHL R7 
FB OO08A CALLS #6, INSERT a: _BANNER 
DO O008F MOVL BANNER_TYPE, 
04 4644 RET 
D4 00093 3$: CLRL RO 
04 00095 RET 
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4466 


4472 | 
4474. 


S42 | 


eerie es 


SEPARATE Print Symbiont -- separation routines 
v04-001 GET_JOB_NAME = Get Name of the Current Job 
; 3557 4475 1 Xsbttl 'GET_JOB_NAME = Get Name of 
; 3558 4476 1 !4+4 
3 3559 4477 1 ! Functional Description: 
3 $200 4478 1! his routine creates a phr 
; 3561 4479 1! 
: 3268 4480 1 ! Formal Parameters: 
3; 356 4481 1! SCB - Address 
> 3564 4482 1! STR_DESC - Desc of 
; 3565 44835 1! RET_LEN - Return | 
; 3566 4484 1! 
: 3567 4485 1 ! Implicit Inputs: 
: e208 4486 1! none 
; 3569 4487 1! 
: 3570 4488 1 ! Implicit Outputs: 
; 3571 4489 1! none 
s Sore 4490 1! 
; 3573 4491 1 ! Returned Value: 
3; 3574 4492 1! none 
; 3575 44935 1! | 
3; 3576 4494 1 ! Side Effects: 
3; 3577 4495 1! non 
; 3578 4496 1 !-- 
3; 3579 4497 1 ROUTINE GET_JOB_NAME ( 
; 3580 4498 1 ScB 
; 3581 4499 1 STR_DESC 
; 3582 4500 1 RET_LEN 
: 3583 4501 1 
; 3584 4502 2 BEGIN 
; 3585 4503 2 BIND 
; 3586 P 4504 2 SENT80_FORMAT = $DESCRIPTOR ( 
; 3587 4505 2 "IKS"); 
; 3588 4506 2 
; 3589 P 4507 2 $FAO ( SENT80_FORMAT, 
; 3590 P 4508 2 RET_LENCO) 
> 3591 P 4509 2 STR-DESCLOI, 
; 3592 P4510 2 SCBCPSM$Q_JOB_NAME], 
3; 3593 4511 2 i 
: 3594 4512 2 
; 3595 4513 2 RETURN SS$_NORMAL; 
3; 3596 4514 1 END; 
53 41 21 
00000003 
00000000 
000 
7E 04 AC OOOO00A8 8F C 
08 aC OD 
0c AC D 
E4 AF 9 


: REF $BB 
: REF VEC 
: REF VEC 
: NOVALUE 
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of the SCB 
String to Return 
ength of Desc. 


K ' $CB 
C ' Output buffer desc 
! Return Length (word) 


SS 
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' str€size] > fetched namelen 
' job name 


ASCII \!AS\ : 
“BLKB 3 

“LONG 3 

“ADDRESS P.ACO ; 
SENT80_FORMAT= P.ACN 


0 00000 GET _JOB_NAME: 
1 00002 ADDL 


USHL 
PUSHAB 
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; Routine Size: 


Print Symbiont == separation routines 1 
GET_JOB_NAME = Get Name of the Current Job 1 
00000000G 00 04 FB aS CALLS 
04 0001B RET 
28 bytes, Routine Base: CODE + 1(90 
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v04-001 GET_EOJ = Get the Phrase End of Job 14-Sep-1984 22:52:26 PRTSMB.SRCJSEPARATE .B832;2 (31) 
; 3598 4515 1 &sbttl "GET_EOJ - Get the Phrase End of Job' 
; 3599 $el$ 1 lee 
; 3600 451 1 i ramet tone Description: 
: red $218 ! This routine creates a phrase with ‘‘EQJ"’ or ‘END OF JOB". 
; 360 4520 1 ! Formal Parameters: 
3; 5604 6352) 7 i - Address of the SCB 
; 3605 45 ¢ 1! STR_DESC - Desc of String to Return 
: 3606 45 .-% RET_LEN - Return Length of Desc. 
; 3607 45246 1! 
; 3608 4525 1! Implicit Inputs: 
; 3609 S258 1! none 
; 3610 4507 1 | 
3; 3611 4528 1 ! Implicit Outputs: 
; 3612 1283 , 3 none 
3: 3613 4530 1! 
; 3614 4531 1 ! Returned Value: 
; 3615 $236 1! n 
3; 3616 6535 77. 
3; 3617 4534 1! Side Effects: 
; 3618 4535 1! none 
: 3619 4536 1 i-- 
; 3620 4537 1 ROUTINE GET_EOJ ¢ 
3 3621 4538 1 $cB : REF $BBLOCK ! 
: 3622 4539 1 STR_DESC : REF VECTORL2), i Output buffer desc 
3 3623 4540 1 RET_LEN : REF VECTOR C,WORD) ' Return Length (word) 
3 3624 4541 1 ) : NOVALUE = | 
; 3625 4542 2 BEGIN 
: 3626 4543 2 BIND 
3; 3627 P 4544 2 SENT132_FORMAT = $DESCRIPTOR ( 
: 3628 4545 2 "END OF JOB"), - 
3; 3629 4546 2 
; 3630 P 4547 2 SENT80_FORMAT = S$DESCRIPTOR ( 
; 3631 4548 2 "EOU'); 
3; 3632 4549 2 
: 3633 4550 2 $FAO ( SENT132_FORMAT, 
3 3634 P 4551 2 RET_LENTO] ' return Length 
> 3635 P 433¢ 2 STRTDESCLOS, i address of string 
3; 3636 4553 2 3 
; 3637 4554 2 } 
; $038 $23? 2 Is it short enough to allow the words ‘End of Job’’ to be printed ? 
; 3640 4557 § if ((12 * .RET_LENCOJ) GTR .SCBCPSMSL_PAGE_WIDTH]) 
3: 3641 4558 § THEN 
3: 3642 P 4559 SFAO ( SENT80_FORMAT, > 
: 3643 P 4560 2 RET_LENCOJ ! str€size] > fetched namelen 
> 3644 P 4561 2 STR-DESCLOI, 
3: 3645 $206 2 3 
3; 3646 456 § 
3 3647 4564 RETURN SS$_NORMAL ; 
; 3648 4565 1 END; 
42 GF 4A 20 46 4F 20 44 GE 45 Bicae P.ACQ: rt + aes OF JOB\ 3 
0000000A sth ACP: PONG 10 : 
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Print Symbiont == separation routines 1 ~3007 138% 95:93:93 AX-11 Bliss-32 V4.0- 35. Page 131 4 
GET_EOF = Get the Phrase End of File 14-Sep-1984 52:26 PRTSMB.SRC SEPARA TE.B32;2 (32) Vv 
4566 1 Xsbttl "GET_EOF - Get the Phrase End of File’ . 
4567 1 !+44 3 
4568 1 | Functional Description: : 
$282 } This routine creates a phrase with ‘EOF’ or ‘END OF FILE"’. : 
4571 1 ! Formal Parameters: F 
126 1! - Address of the SCB : 
4575 1! STR_DESC - Desc of String to Return : 
teee : RET_LEN - Return Length of Desc. ; 
4576 1! Implicit Inputs: : 
4577 1! none 3 
4576 1! oh : 
4579 1! Implicit Outputs: 3 
4580 1! none $ 
4581 1! 3 
t26$ 1 ! Returned Value: : 
4585 1! non 3 
4584 1! 3 
4585 1 ! Side Effects: 3 
4586 1! none F 
4587 1 !-- 5 
4588 1 ROUTINE GET_EOF ¢ : 
4589 1 SCB : REF $BBLOCK ! $¢cB 3 
4590 1 STR_DESC : REF VECTORCC), i Output buffer desc ; 
4591 1 RET_LEN : REF VECTOR C,WORDJ i Return Length (word) : 
1286 1 ) : NOVALUE = : 
4593 2 BEGIN : 
4594 2 BIND : 
4595 2 SENT132 dat = S$DESCRIPTOR ( ; 
4596 2 ‘END O "he FH 
4597 2 $ 
4598 2 SENT80_FORMAT = SDESCRIPTOR ( : 
4599 2 "E0F'); ; 
4600 2 3 
4601 2 SFAO ( ah FORMAT, : 
4602 2 RET_LENTO) ! return Length | : 
4603 2 STR ~DESCLOS, ! address of string ; 
4604 2 ; : 
4605 2 : 3 
1008 2 Is it short enough to allow the words ‘End of Job’’ to be printed ? : 
rat IF ((12 ® .RET -LENCO]) GTR .SCBCPSM$L_PAGE_WIDTH]) : 
4610 $ SFAO ( bbe FORMAT, ; : 
4611 2 C0) ' str€size] > fetched namelen : 
461¢ 2 STR ~DESCLOS, ; 
46135 2 3 3 
4614 § : 
4615 RE — SS$_NORMAL ; e 
4616 1 END : 
45 4C 49 46 20 46 4F 20 44 4E 45 01000 P.ACU: .ASCII \END OF FILE\ 3 : 
01008 -BLKB 1 ; 
0000000B O1D0C P.ACT: .LONG 11 3 : 
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v04-001 GET ACCOUNTING. INFO - Get the Accounting Inform 14- aaah y 4 95:93:93 PRISMB.SRC1S SEPARA TE.B b33.2 . 3 
; 4 re OF : Febetl "GET_ACCOUNTING_INFO = Get the Accounting Information’ ; 
; 3704 4619 1! Functional Description: F 
3 Ae re Y i } Ss routine returns a string containing the accounting information. : 
; 3707 46 ¢ 1 ! Formal Parameters: ‘ 
: 3708 46 1! scB - Address of the SCB ; 
; 3709 tose 1! STR_DESC - Desc of String to Return : 
: efi 4625 1! RET_LEN - Return Length of Desc. ’ 
3; 3711 4626 1! : 
3 Har: 4627 1! Implicit ame 3 
3 33 4628 1! PF 
: 3714 4609 1 | | ; 
3; 3715 4630 1! Implicit autputs: 3 
; 3716 4631 1! ne 3 
3 S7i7 1038 1! | 3 
; 3718 4633 1 ! Returned Value: : 
3; 3719 4634 1! : 
; 3720 4635 1! 3 
3; 3721 4636 1! Side Effects: ; 
3; 3722 4637 1! F 
3: 3723 4638 1 !-- 3 
3 3724 4639 1 ROUTINE GET_ACCOUNTING_INFO ( 3 
3; 3725 4640 1 $¢B : REF S$BBLOCK ' $¢B ; 
> 3726 4641 1 STR_DESC : REF VECTORL?J, i Output buffer desc ; 
: 3727 4642 1 RET_LEN : REF VECTOR C,WORDJ ! Return Length (word) : 
3; 3728 4643 1 ) : NOVALUE = 2 
: 3729 4644 2 BEGIN 3 
: 3730 4645 2 BIND 3 
3; 3731 4646 2 SENT132 FORMAT = SDESCRIPTOR ( : 
; 3732 P 4647 2 'ATAC)', : 
3; 3733 4648 2 "ig(as)'” 3 
> 3734 4649 2 ); | ; 
3; 3735 4650 2 LOCAL 3 
3; 3736 4651 2 iF PRES; 4 
: 3737 465 § é 
: 3738 465 [PRES =  .SCB SIZE. (ACCOUNTING_DATA); | ; 
; 3739 4654 2 IF” o AF Pi RES GEG 1 : 
; 3740 4655 T 3 
3 3741 4656 IF_PRES = 1; 3 
; Hoe: 4657 : 
: 374 P 4658 S$FAO ( SENT132_FORMAT, | : 
3 3744 P 4659 2 ET_LENTO] ! return Length 3 
: 3745 P 4660 : STR “DESCLOS, i address of string ; 
3; 3746 P 4661 . IF -PRE 3 
; ee? Pp 466 3 UPLTT BYTE (ZASCIC ‘ACCOUNTING INFO:"'), 3 
> 3749 P 4664 2 SCBEPSM$Q_ACCOUNTING_DATA] ' accounting data ; 
; 3750 4665 2 ); é 
: 3751 4666 1 END; ; 
29 43 41 28 ; 1 01054 P.ACY eASCII \IMCAC)N ; : 
29 53 41 28 1 1D5A eASCII \!IMCAS)\ : é 
90 0000C 01060 P.ACX: .LONG 12 3 3 
000000" 01064 -ADDRESS P.ACY : 3 


SEPARATE Print Symbiont -- separation routines -Sep-19 AX-11 Bliss-32 V4. 
vO6-001 GET_ACCOUNT ING. INFO = Get the Accounting Inform 12: b-sep-1984 $8: $3; 83 PATSMB SREISEPARATE .03 B32;2 
46 4E 49 20 47 GE 49 54 GE 55 4F 43 43 41 10 91068 P.ACZ: .ASCII <16>\ACCOUNTING INFO:\ 
3A GF 1D 
SENT132_FORMAT= P.ACX 


0000 00000 GET oe tee Ine. INFO: 


WORD Save nothing 
50 04 aC pO 00002 MOVL  5SCB, R 
51 14 Ad ¢ 90006 MOV2WL 20(RO), IF_PRES 
51 $7 00 oopoe Ste oat. IF _PRES 
14 AO oF itt 1$ PUSHAB SO tRD) a 
51 DD 00012 USHL  IF_PRES 
D8 AF 9F 00014 PUSHAB P.ACZ 
51 DD 09017 PUSHL IF _PRES 
08 AC DD 00019 PUSHL  STR_DESC 
OC AC DD 0001C USHL RET 76s 
C5 AF 9OF 0001F PUSHAB SENT132_FORMAT 
000000006 00 07 FB 00022 CALLS #7, SYSSFAO 
04 00029 ET 


; Routine Size: 42 bytes, Routine Base: CODE + 1D79 
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v04-001 GET "QUALIFIERS - Get Switches/Qualifiers associ 14- ~8ep-1984 1 98: 3: % PRTSMB.SRC SEPARATE 283 sé ’ (34) Vv 
; Te? $667 1 ts ¥sbttl "GET_QUALIFIERS - Get Switches/Qualifiers associated with PRINTING’ : 
: 3755 4669 1 "Fanart ionet Description: ; 
>; 3756 4670 1! This routine returns a string containing the all relevant print ; 
; 3757 4671 1! qualifier information. : 
; 3758 4672 1! : 
3; 3759 4675 1 ! Formal Parameters: ; 
: 3760 4674 1! - Address of the SCB : 
3 370) 4675 1! STR_DESC - Desc of String to Return ; 
: roe 4676 1! RET_LEN - Return Length of Desc. ; 
: 376 4677 1 | | : 
: be: 4678 1 ! Implicit Inputs: F 
3; 3765 4679 1! none 3 
: 3766 4680 1! ‘Ri. F 
: 3767 4681 1 ! Implicit Outputs: 3 
3; 3768 rhe 1! fone 3 
: 3769 4683 1! 3 
: 3770 4684 1 ! Returned Value: 3 
3; 3771 4685 1! non ; 
: 3772 4686 1! 3 
3; 3773 4687 1 ! Side Effects: 3 
3: 3774 4688 1! none ; 
: 3775 4689 1 !-- 3 
3; 3776 4690 1 ROUTINE GET_QUALIFIERS ( : 
; 3777 4691 1 $¢cB : REF S$BBLOCK ' $¢cB é 
> 3778 4692 1 STR_DESC : REF VECTORCC), i Output buffer desc : 
; 3779 469 1 RET “LEN : REF VECTOR C,WORD) ! itoen Length (word) é 
: 3780 4694 1 ) : NOVALUE = : 
; 3781 4695 2 BEGIN : 
3; 3782 4696 2 BIND 3 
; 3783 4697 2 ! all the formats start here 3 
; 3784 4698 2 ! | : 
3; 3785 P 4699 2 DATE_FORMAT = $DESCRIPTOR ( é 
; 3786 700 § 70179"), 3 
3; 3787 4701 

; 3788 2286 2 AFTER. TIME FORMAT = etsiguakcntinens ( : 

: 3789 4703 2 /AFTER=!17%D") ! = after_time print | 

; 3790 4704 2 

3; 3791 P 4705 2 BURST_FORMAT = S$DESCRIPTOR ( 

3; 3792 4706 2 *" /BURST* - ' = burst 

3; 3793 4707 2 

: 3794 P 4708 § CHARACTERISTICS FORMAT = SDESCRIPTOR ( sag 

: 3799 2799 "” /CHARACTERISTICS=!AS* }e ! = characteristics 

: 3739 P 4711 FILE COPIES FORMAT = SDESCRIPTOR ( oe 

; a erie /COPIES=!UL(!UL of !UL)"), ! = copies/iteration 

; 3800 P 4714 FEED_FORMAT = S$DESCRIPTOR ( 

; 3801 4715 v /FEED' - ! = feed 

3; 3802 4716 

: 3803 P 4717 FLAG_FORMAT = $DESCRIPTOR ( 

: 3804 4718 * /FLAG ), ' = flag 

; 3805 4719 

3; 35806 P £759 FORM, gos = SDESCRIPTOR ( 

: 3807 4721 * /FORM=!AS' . ! = form 

; 3808 $/56 

; 3809 P 47 snmnen Sema = $DESCRIPTOR ( 


om 
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-0 GET_ QUALIFIERS - Get Switches/Qualifiers associ 14-Sep-1984 6 PRTSMB.SRCJSEPARATE. “h8 
A $9 re 4 ¢ * /HEADER' va ! = header 
; Bi¢ P 47 § JOB_ COUNT FORMAT = $DESCRIPTOR ( 
; si? $f { /J0B_ COUNT=!UL(IUL of rOLY - ! = job count /iteration 
; 3815 P 4729 LENGTH FORAAT ® Fa pegeanetileane, 
2) dsielh 
; 3818 P 2538 LIBRARY taille SDESCRIPTOR ( 
: ah to87 * /CIBRARY=!AS' ), ! « library 
$ 385) P $232 MARGIN FORMAT = +) shepaaiculnan: 
3; 38 § 4736 * 7MARGIN= 
: 382 erat 
3; 3824 P 4738 TOP_ FORMAT =  vigsonactlens 
3; 3825 4739 *TOP= 'UL") 
; 3826 4740 2 
3; 3827 P 4741 § BOTTOM FORMAT = semana 
: 3859 t7e3 8 hendameprasi 
; 3830 P 4744 2 LEFT “iin * yhgpapronctiine 
3; 3831 4745 2 TLEFT=!UL" 
3; 3832 4746 5 
; 3833 P 4747 RIGHT Sontelu — 
3; 3834 4748 2 *RIGHT= 
3; 3835 4749 2 
3; 3836 P 4750 2 NOFEED_FORMAT = $DESCRIPTOR ( 
: He tE4 $723 § * 7NOFEED' ), ! = nofeed 
: 3839 P 1788 2 SETUP_PAGE FORMAT = SDESCRIPTOR( 
: 3840 4754 2 *"/PAGE_SETUP=(!AS)° ? ! = setup page 
; 3841 4755 2 
3: 3842 P 4756 2 PAGES FORMAT = SDESCRIPTOR ( 
; 3843 4757 2 *“/PAGES=(!UL,!UL)' be ! = page count 
3; 35844 4758 § 
3; 3845 P 4759 PARAMETER_FORMAT = SDESCRIPTOR ( 
3; 3846 P 4760 § * /PARAMETERS=(' tA 
; 3847 P 4761 wae, IAs, “ae, “ae, “ine, 2, 
: seee $766 § mins: vias. “iasis*). ! = parameter lists 
: 3850 P 4764 2 PASSALL_FORMAT = $DESCRIPTOR ( 
: Spel $768 2 * /BASSALL* ‘ ! = passall 
H 3858 P 4767 PUNCTU Ne ie FORMAT = $DESCRIPTOR( 
3; 3854 4768 "tac*) ! comma or close paren 
; 3855 4769 
; $529 P 4770 SETUP_FILE_ FORMAT = S$DESCRIPTOR ( : 
; Shen oer) *"/SETOP_FILE=(!AS)° ), ! = setup file 
; 3859 p anys SETUP_FORM_ FORMAT = $DESCRIPTOR( 
5 560 orre : /SETOP_FORM=(!AS)° a ' = setup form 
: 86¢ P 4776 SHEET_FORMAT = $DESCRIPTOR( 
> 386 4777 /SHEET_FEED' ), 
3; 3864 4778 
: Shee P 4779 SPACE _FORMAT = SDESCRIPTOR ( 
3; 35866 4780 *"“/SPACE* .. ! = space 
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* -0 GET_QUALIFIERS = Get Switches/Qualifiers associ 14-Sep-1984 22:52:26 CPRTSMB.SRCIJSEPARATE.B32;2 (34). 
867 4781 
868 P 258s TRAILER_FORMAT = $DESCRIPTOR ( 
869 478 * /TRAILER' Pe ! = trailer 
870 4784 
$853 P 4785 TRUNCATE _FORMAT = S$DESCRIPTOR( 
aie 4786 * /TRUNCATE' Re 
387 4787 
$B5¢ P 4788 WIDTh wr eenet ¢ a) meamathoen 
875 rth 9 /WIDTH 
3876 4790 
3877 P 4791 WRAP v hoaeee SDESCRIPTOR 
3878 oie 
3879 479 
3880 4794 LITERAL 
3881 4795 K MAX -BUFFER_SIZE = 512; 
3882 4796 
3883 4797 LOCAL 
3884 4798 PUNC FLAG : INITIAL (0), 
885 4799 TEMP_L 
3886 4800 AFT BATE PTR: ve TOR hed 
87 4801 TEMP Pp H RCO), 
3888 480 AFT BUFF : VECTOR 17,bytel, 
3889 480 iene BUFF : VECTORL17,bytel, 
890 4804 IF_PRES ° 
3891 4805 CURREWS LEN : INIT (0), 


IAL 
STRI NG_PIR : VECTOR (2); ! Pointer to current string 
Allocate the buffer for ‘'GET_xxx'’ Routines 


96 STRING_PTRISIZE] = K_MAX_BUFFER SIZE; . 
3897 481 STRING_PTRLADDR] = .STR_BESCCADBRI; ! init address 
3899 RET_LENCO) = 0; 
3900 
3901 '$FAO ( BEGIN_FORMAT, 
3902 : CURRENT_LEN ' return length 
3903 i STRING_PTRLO), i address of string 
3904 : ; 
3905 : 
3906 'RET_LENCO) = .RET_LENCO] + .CURRENT_LEN; 
3907 'STRING_PTRCADDR) = .STRING_PTRCADDR] + .CURRENT_LEN; 
390 'STRING_PTRCSIZE] = K_MAX_BOFFER_SIZE - .RET_LENTO); 


; 8 
; 3909 
; 3910 
; : Increment pointer only if not equal to time queued 


AFT_DATE_PTRCSIZE) ZALLOCATION(CAFT_BUFF); 
AFT“DATE_PTRLADDR] = AFT_BUFF; 


SFAO ( DATE. ta 
AFT DATE PrR(O), 
SCBLPSNSS. -AFTER_TIME)); 


TEMP_PTRESIZE] = ZALLOCATION(TEMP_BUFF); 
TEMP_PTRCADDR) = TEMP_BUFF; 
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v04-001 GET_QUA IPIERS = Get Switches/Qualifiers associ 14- -$ep-1984 22:32:26 PRTSMB. SRC SEPARA TE.B32;2 
; 3924 P 4838 $FAO ( DATE_FORMAT, 
: 3958 P eBa0 TEMP“PTRCO) 
; 4 i 484 TER EPSHSG OF AME _QUEUED)); 
: 3929 tBe$ IF CHSNEQ( .TEMP_LEN, .TEMP_PTRCADDR], .TEMP_LEN, .AFT_DATE_PTRLADDR]) 
; 3930 4844 2 THEN 
; 3931 4845 BEGIN 
: 3935 p cRcy SFA ( 
: 3934 P 4848 AFTER_TIME_FORMAT, 
3; 3935 P 4849 CURRENT_LEN ! return Length 
: 3936 P 4850 STRING, PTRCOJ i address of string 
; 3937 4891 SCBLPSM$Q_AFTER_TIME]); i after_time 
: 3939 tBes T_LENCO) = sRET LENCO] + .CURRENT_LEN; 
> 3940 4854 STRING PTREADDR =. STRING _PTRCADDR] + .CURRENT_LEN; 
3 3941 4855 STRING-PTRCSIZEJ = K_MAX_BOFFER_SIZE = .RET_LENTOJ; 
3908 a so 
: 3944 4858 2 IF .SEPARATE_FLAG_ (FILE_BURST) 
 Soce 1860 § | Neecin 
: 3947 P 4861 3 $FAO ( BURST_FORMAT, 
3; 3948 Pp ra | 3 CURRERNT_LEN ' return length 
; 3949 P 4863 3 STRING_PTRLOJ i address of string 
3984 tees 3 
: 3952 4866 3 RET_LENCO] = .RET_LENCO] + .CURREN 
> 3953 4867 3 STRING_PTRCADDR)] = .STRING_PTRLADDRI + ‘CURRENT. EN; 
; 3954 4868 3 STRING “PTRCSIZE] = K_MAX_BOFFER_SIZE - .RET_LENLvJ; 
mo Ry Be 
: 3957 4871 ‘ IF (.SCB_SIZE_ (CHARACTERISTICS) EQL 0) 
3986 tars 3 *Neecin 
> 3960 P 4874 3 $FAO ( CHARACTERISTICS_FORMAT, 
; 3961 P 4875 3 CURRENT_LEN ! return tenets 
; 3962 P 4876 3 STRING PTR(O), i address of string 
: 3963 P 4877 3 SCBLPSSA. REHARACTERISTICSJ i 7CHARACTERISTICS 
Bato He 
: 3966 4880 3 RET_LENCO] = .RET_LENCO] + .CURRENT HEN 
3 3967 4881 ; STRING PTREADDR] =". STRING PTRCADDRI + URRENT LEN: 
; 3968 488 STRING_PTRLSIZE) = K_MAX_BOFFER_SIZE - T_LENT 
io ae geo 
: 4a taee 3 : Always print something about form feed... /FEED or /NOFEED 
; ie ret IF; SBBLOCKLSCBLPSMSL_PRINT_CONTROL, SMBMSG$V_PAGINATE] 
: 3975 488 , BEGIN 
: 3976 4890 SFA FEED_FORMAT, 
; 3977 P 4891 CURRENT_LEN ' return length | 
; 3978 P 489 STRING_PTRLO) i address of string 
: 3979 489 ); 
; 3980 4894 
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; 3981 4895 RET LENCO) = .RET_LENCO] + .CURRENT gtENe 

; 398 4896 STRING “pI tApOR = .STRING PTREADDRI > -C verte hgh 

; 398 4897 STRING-PTRESIZEJ = K_MAX_BOFFER_SIZE = .R ENT 

>; 3984 4898 END; 

: 3985 489 

: 3986 4900 2 IF .SCBCPSMSL_FILE_COPIES] GTR 1 

; 3987 4901 THEN 

; 3988 490 BEGIN 

: 3989 P 490 SFAO ( FILE COPIES_FORMAT, 

: 3990 P 4904 CURRENT_LEN ! return Length 

; 3991 P 4905 STRING _PTRLO), i address of string 

; 399 P 4906 .SCBCPSMSL_FILE_COPIES], | /FILE_COPIES 

; 399 P 4907 . SCBLPSM$L_F ILE_ COUNT) ! iteration 

: 3994 P 4908 -SCBLPSMSL—FILE~COPIES) 

; 3995 4909 ); 

; 3996 4910 

: 3997 4911 3 ENCO] = .RET_LENCO] + .CURREN 

; 3998 4912 3 CFRING. -PIRCADDR) =". STRING_PTRLADDRI = RRENT EN: 

; 3999 4913 3 pigiwe PTRCSIZE] = K_MAX_BOFFER_SIZE - T_LENT 

; 4000 4914 2 

: 4001 4915 2 

3 4002 4916 2 IF SMe fhe (FILE_FLAG) 

: 4003 4917 : THEN 

: 4004 4918 EGI 

; 4005 P4919 3 SFAO ( FLAG FORMAT, 

; 4006 P 4920 3 CURRENT_LEN ! return Length | 

> 4007 P4921 3 STRING_PTRLOJ i address of string 

; 4008 4922 3 $ 

: 4009 4923 3 

: 4010 4924 3 RET LENCO] = .RET_LENCO] + .CURREN 

; 4011 4925 3 STRING_PTRLADDR)] = .STRING PTRLADDRI + * CURRENT LEN; 

; 4012 4926 3 STRING_PTRCSIZE) = K_MAX_BOFFER_SIZE - .RET_LENTOJ 

: 4013 4927 2 END; 

: 4014 4928 2 

: 4015 P 4929 2 $FAO ( FORM_FORMAT, 

; 4016 P 4930 2 CURRENT_LEN ! return Length | 

: 4017 P 4931 2 STRING PTR(OJ, ! address of string 

; 4018 4932 2 SCBLPSASO. FORA_NAMEJ) ; 

: 4019 4933 2 

: 4020 4934 2 RET_LEN(O) = RET LENCO) + ,CURRENT_L 

> 4021 4935 g STRING_PTRLADDR) = .STRING P BTRCADDRT" s * CURRENT LEN; 

; +056 $338 STRING_PTRCSIZEJ = K_MAX NSOFFER. SIZE - .RET_LENTO] 

: 4024 4938 2 IF .RET_LENCO] GTR K_MAX_BUFFER_SIZE 

3; 4025 4939 THEN 

: 4026 4940 GIN 

; 4027 4941 RET a © 512; 

; 4028 4942 3 RETORN 

: 4029 4943 2 END; 

; 4030 494 

> 4031 4945 2 IF .$BBLOCKCSCBLPSM$L_PRINT_CONTROL], SMBMSGS$V_PAGE_HEADER) 

> 403 4946 2 THEN 

: 403 4947 BEGIN 

: 4034 P 4948 $FAO ( HEADER_FORMAT, 

; 4035 P 4949 CURRENT _LEN ! return Length | 

; 4036 P 4950 STRING_PTRLOJ i address of string 


vuvUvvU 
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eee ALWAYS PRINT THE LIBRARY !**! 


$FAO ( LIBRARY_FORMAT, 
CURRENT— py EN ' return Length 

STRING? RCO) address of string 

SCB PSAs RE TBRARY SPECIFICATION)! 7LIBRARY 
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1328 
495 RET LENCO] = .RET_LENCO] + .CURRENT eee 
4954 Aid ns Maly = .STRING PTRCADDRI + ay gue 
4955 STRING_PTRLSIZEJ] = K_MAX_BOFFER_SIZE - .RET_LENT 
ist ge 
4958 IF _ .RET_LENCO] GTR K_MAX_BUFFER_SIZE 
4959 T 
4960 IN 
4961 ; aT a.” 512; 
496 RETORN 
496 ; 
4964 
4965 IF .SCBCPSM$L_JOB_COPIES] GTR 1 
4966 ¢ THEN 
4967 BEGIN 
4968 3 $FAO ( JOB_COUNT_FORMAT, 
4969 3 CURRENT_LEN ! return Length 
4970 3 STRING P ' address of string 
4971 3 + SCBEP SM _J08_COPIESI, ! /JOB_COUN 
4972 3 - SCBCPSM$L_JOB_COUNTJ : ea 5 eg 
4973 3 . SCBLPSMSL—JOB— ~COPiESS i 
4974 3 ); 
4975 3 
4976 3 RET_LENCO] = .RET_LENCO) + .CURRENT 
4977 3 STRING _PTREAD DR] = .STRING BIREADDRIg * CURRENT LEN; 
4978 3 STRING_PTRCSIZE] = K_MAX_BOFFER_SIZE - .RET_LENTO); 
ee 
4981 2 ! Here is my internal call to PSM$READ_ITEM_DX to insure that the user 
rh § can copy information successfully using this routine 
4984 3 BEGIN 
4985 3 LOCAL LEN: VECTOR(2): 
4986 3 
4987 3 INIT_DYN_DESC_ Se a 
498 3 PSMSREAD_ ITEM_DX (.S¢CB , yt} apenas _FORM_LENGTH), 
4989 3 ENCO]); 
4990 3 
4991 3 SFAO ( eds FORMAT, 
4992 3 CURRENT _LEN ! return Length | 
4993 3 STRING. PTRCOJ, i address of string 
rhe 3 . -LENCADDRI ! Length pointed to by lenladdr] 
4996 ; 
4997 3 RET_LENCOJ = .RET_LENCO] + .CURRENT_LEN 
4998 ; STRING. PTRCADDR) = Mgity NG PTREADDRT- + = CURRENT LEN; 
4999 STRING_PTRCSIZE) = X_BOFFER_SIZE - LENCO); 
2209 7 END; 

' 


); 
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: 4095 5009 
3; 4096 anit RET LENCO] = .RET_LENCO] + .CURRENT_LEN; 
; 4097 011 STRING LET READ DR = ,STRING_PTRCADDRI + .CURRENT LEN: 
; 4098 201¢ STRING-PTRCSIZE] = K_MAX_BOFFER_SIZE = .RET_LENTOJ; 
; 4100 5014 IF_.RET_LENCO] GTR K_MAX_BUFFER_SIZE 
; 4101 5015 THEN 
; 2106 5016 BEGIN 
; 410 5017 RET LENCO) = 512; 
3: 4104 5018 3 RETORN; 
; 4105 5019 2 H 
: 4106 2880 § 
; 4107 5021 IF (.SCBCPSM$L_TOP_MARGIN] NEQ 0) OR 
; 4108 e056 2 (.SCBCPSM$C_BOTTOM_MARGIN] NEQ 0) OR 
; 4109 502 ¢ p*Beepoemeteb bc! MARGIN] NEQ 0) O 
; 4110 5024 (.SCBCPSMS$L_RIGHT_MARGIN] NEQ 0) 
3 4111 5025 2 THEN 
> 4112 5026 3 BEGIN 
: 4113 5027 3 
3 4114 P 5028 3 $FAO ( MARGIN_FORMAT, 
3; 4115 P 5029 3 CURRENT _LEN ! return length | 
> 4116 P 5030 3 STRING_PTRLOJ ! address of string 
3 4117 5031 3 ; 
> 4118 5032 3 
3; 4119 5033 3 RET LENCO] = .RET_LENCO] + .CURRENT_LEN; 
3; 4120 5034 3 STRING_PTRCADDR] = .STRING_PTRCADDRJ + .CURRENT_LEN; 
; tis} eRe? ; STRING_PTRCSIZEJ] = K_MAX_BOFFER_SIZE - .RET_LENTOJ; 
3 4123 5037 4 IF (.SCBCPSM$L_TOP_MARGIN] NEQ 0) 
> 4124 5038 3 THEN 
3 4125 5039 4 BEGIN 
: 4126 P 5040 4 $FAO ( TOP_FORMAT, 
: 4127 P 5041 4 CURRENT LEN ! return length | 
> 4128 P 5042 4 STRING_PTRLOJ, i address of string 
3; 4129 P 5043 4 - SCBCPSMSL_TOP_MARGIN] ! top 
3; 4130 5044 4 ); 
> 4131 5045 4 
3 4132 5046 4 PUNC_FLAG = 1; 
3 4133 5047 4 RET_CENCO) = .RET_LENCO] + .CURRENT_LEN; 
3 4134 5048 4 STRING_PTRCADDR] = .STRING_PTRCADDR] + .CURRENT_LEN; 
3 4135 5049 4 STRING_PTRCSIZE) = K_MAX_BOFFER_SIZE - .RET_LENTOJ; 
: 4136 5050 3 END; 
3: 4137 5051 
; 4138 2036 IF (.SCBCPSM$L_BOTTOM_MARGIN] NEQ 0) AND 
: 4139 505 -PUNC_FLAG 
> 4140 5054 3 THEN 
3 4141 5055 4 BEGIN 
3 aie8 P 5056 4 $F A0( 
3: 414 P 5057 4 PUNCTUATION_FORMAT, 
3 4144 P 5058 4 CURRENT _LEN ! return Length | 
> 4145 Pp 5059 4 STRING PTRLO), i address of string 
3 4146 P 5060 4 UPLIT BYTE (ZASCIC ',') 
3 4167 5061 4 ); 
: 4148 2006 4 
3 4149 50635 4 RET_LENCO) = .RET_LENCO] + .CURRENT_LEN; 
; 4150 5064 4 STRING_PTRCADDR] = .STRING PTRCADDR] + .CURRENT LEN: 
> 4151 5065 4 STRING-PTRESIZE) = K_MAX_BOFFER_SIZE - .RET_LENTO); 
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: 4209 5123 4 ); 
; 4210 5124 4 
; 4211 5125 4 RET LENCO] = .RET_LENCO] + .CURRENT_LEN; 
3; 4 \§ 5126 4 STRING ETRE ADDR = STRING _PTRCADDR] + . CURRENT LENG 
> 421 Sie7 4 STRING-PTRCSIZEJ = K_MAX_BOFFER_SIZE = .RET_LENTO); 
: esi8 5128 ; END; 
>; 4215 5129 
; 4216 5130 4 IF _ (.SCBCPSMSL_RIGHT_MARGIN] NEQ 0) 
: 4217 213) 3 THEN 
; e518 51 ¢ 4 BEGIN 
; 4219 P5133 4 $FAO ( RIGHT FORMAT, 
; 4220 P 21 4 LEN ! return length | 
3 4221 P 5135 4 STRING PTR(O), ! address of string 
3 oss6 P 5136 4 -SCBCPSMS$L_RIGHT_MARGIN],  ! right 
: 422 5137 4 3 
3 4224 5138 4 
3 4225 5139 4 RET LENCO) = .RET_LENCO] + .CURRENT_LEN; 
> 4226 5140 4 STRING_PTRCADDR) = .STRING_PTRCADDR] + .CURRENT_LEN; 
3 4227 5141 4 STRING_PTRCSIZE) = K_MAX_BOFFER_SIZE - .RET_LENTOJ; 
; 4228 5142 3 END; 
3 4229 5143 3 
; 4230 P5144 3 $FAO( 
: 4231 P5145 3 PUNCTUATION_FORMAT, 
; 4232 P 5146 3 CURRENT _LEN ! return length | 
; 4233 P5147 3 STRING PTRCOJ, i address of string 
> 4234 P5148 3 UPLIT BYTE (ZASCIC ')') 
; 4235 5149 3 : 
; 4236 5150 3 
; 4237 5151 3 RET LENCO) = .RET_LENCO] + .CURRENT_LEN; 
: 4238 3136 3 STRING_PTRCADDR) = .STRING_PTRCADDR] + .CUKRENT_LEN; 
3; 4239 5153 3 STRING_PTRCSIZE] = K_MAX_BOFFER_SIZE - .RET_LENTOJ; 
; 4240 5154 2 END; 
: 4241 5155 2 
> 4242 5156 2 IF .RET_LENCOJ] GTR K_MAX_BUFFER_SIZE 
3 4243 5157 2T 
3 4244 5158 3 IN 
3 4245 5159 3 RET LENCO) = 512; 
3 4246 5160 3 RETORN; 
3: 4247 5161 2 ; 
3: 4248 2186 ; 
3; 4249 516 IF NOT (.$BBLOCKCSCBCPSM$L_PRINT_CONTROL], SMBMSG$V_PAGINATE]) 
: 4250 5164 ¢ THEN 
: 4251 5165 BEGIN 
3 +526 P 5166 ; SFAO ( NOFEED_FORMAT, 
3 425 P 5167 URRENT_LEN ! return Length | 
3: 4254 P 5168 3 STRING_PTRLOJ ! address of string 
: 4255 5169 3 ; 
: 4256 5170 3 
3 4257 5171 RET LENCO) = .RET_LENCO) + .CURRENT_LEN; 
: 4258 2176 STRING_PTRCADDR) = .STRING_PTRCADDR] + .CURRENT_LEN; 
3 4259 517 STRING_PTRCSIZE] = K_MAX_BOFFER_SIZE - .RET_LENTO); 
: 4260 5174 END; 
; $503 5175 
3; 4 O¢ 5176 IF .RET_LENCO] GTR K_MAX_BUFFER_SIZE 
; $56 5177 THEN 
: 4264 5178 GIN 
3 4265 5179 RET_LENCO) = 512; 
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> 4323 5237 GIN 
> 4324 5238 RET LENCO) = 512; 
3: 4325 §239 RETORN; 
: 4326 5240 H 
3: 4327 5241 
: 4328 he IF .S$BBLOCKCSCBCPSMSL_PRINT_CONTROL], SMBMSG$V_PASSALL] 
: 4329 524 THEN 
: 4330 5244 BEGIN 
3 4331 P 5245 $FAO ( PASSALL_FORMAT, 
; rit} P 5246 ; CURRENT_LEN ! return Length | 
: 433 P 5247 STRING_PTRLOJ i address of string 
: eee esee ; 3 
: 4335 49 
3; 4336 5250 3 RET_LENCO) = A aes SS + ,CURRENT_LEN; 
3; 4337 5251 3 STRING_PTR ADDR] = .STRING PTRLADDRI + .CURRENT_LEN; 
: 4338 5252 3 STRING_PTRCSIZE] = K_MAX_BOFFER_SIZE - .RET_LENTO); 
; 4339 5253 2 H 
3; 4340 5254 2 
3 4341 5255 2 IF .RET_LENCO] GTR K_MAX_BUFFER_SIZE 
3; 4342 5256 2T 
> 4343 $257 3 IN 
3 4344 5258 3 RET LENCO) = 512; 
3 4345 $259 3 RETORN; 
: 4346 5260 2 END; 
3 4347 5261 2 
> 4348 5262 2 IF .SCB_SIZE_ (FILE_SETUP_MODULES) GTR 0 
> 4349 5265 2 THEN 
3; 4350 5264 3 BEGIN 
3 4351 P 5265 3 S$FAO ( SETUP_FILE_FORMAT, 
; $326 P 5266 3 CURRERT_LEN ' return Length | 
> 435 P 5267 3 STRING PTRLOJ i address of string 
> 4354 P 5268 3 SCBLPSM$Q_FILE_SETUP_MODULES) 
3; 4355 5269 3 3 
; 4356 5270 3 
; 4357 ser) he RET_LENCO] = .RET_LENCO] + .CURRENT_LEN; 
: 4358 S272 3 STRING_PTRCADDR) = .STRING_PTRCADDRI + .CURRENT_LEN; 
: 4359 5273 3 STRING_PTRCSIZE] = K_MAX_BOFFER_SIZE - .RET_LENEO); 
: 4360 5274 2 END; 
3; 4361 5275 2 
3 4362 5276 2 IF .RET_LENCO) GTR K_MAX_BUFFER_SIZE 
: 4363 5277 ¢ THEN 
> 4364 5278 GIN 
3 4365 5279 ; RET LENCO) = 512; 
: 4366 e580 RETORN; 
3: 4367 5281 2 H 
3 4368 2586 2 
> 4369 528 IF .SCB_SIZE_ (FORM_SETUP_MODULES) GTR 0 
3; 4370 5284 THEN 
3 4371 258? BEGIN 
; $376 P 5286 $FAO ( SETUP_FORM FORMAT, 
; 437 P $287 CURRERT_LER ' return Length | 
> 4374 P 5288 STRING PTRLO), i address of string 
3 rt 1 P 23h SCBCPSA$Q_FORM_SETUP_MODULES) ! form setup 
; i379 5301 
3 4378 5 3 RET_LENCO) = RET LENCO) + .CURRENT_LEN; 
; 4379 529 STRING_PTRCADDR) = .STRING_PTRCADDR] + .CURRENT_LEN; 
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if_.SCB_SIZE_ (PAGE_SETUP_MODULES) GTR 0 
THEN 


BEGIN 
$FAO ( SETUP_PAGE_FORMAT, 
RRENT_LEN 


CU ' return Length 
STRING PTRCO) i address of string 
SCBLPSM$Q_PAGE_SETUP_MODULES) i form setup 
RET_LEN(O) = RET LENCO} + .CURRENT_LEN; 
STRING_PTRLADDR] = .STRING_PTRLADDR] + .CURRENT_LEN; 
STRING_PTRUSIZES = K_MAX_BOFFER_SIZE - .RET_LENTOJ; 
; | 
IF RET_LENCOJ GTR K_MAX_BUFFER_SIZE 
BEGIN 
RET_LENLO] = 512; 
RETORN; 


Fp DOLOCALECEL PERE, PRINT CONTROL 2, SMBMSG$V_SHEET_FEED] 


BEGIN 
$FAO ( SHEET FORMAT, 


CURRENT_LEN ' return length 
STRING_PTRLOJ i address of string 
o ; f 
RET_LENCO) = .RET_LENCO) + . CURRENT : 
STRING_PTRCADDR) = .STRING_PTRCADDR] + .CURRENT_LEN; 
RCSIZE] = K_MAX_BOFFER_SIZE - .RET_LENTO); 


STRING_PT 
END; 


| 
IF .RET_LENCO] GTR K_MAX_BUFFER_SIZE 
THEN 
GIN 
RET LENCO) = 512; 
RETORN; 
END; 
[fg PODLOCRESCOLPENEL PRINT CONTROLS. SMBMSG$V_DOUBLE_SPACE] 
BEGIN 
$FAO ( SPACE_FORMAT, 
CURRERT_LEN ' return length | 
STRING_PTRLOJ ! address of string 
RET_LENCO) = .RET_LENCO) + .CURRENT_LEN; 
STRING_PTRCADDR) = .STRING_PTRCADDR] + .CURRENT LEN: 
= K_MAX_BOFFER_SIZE - .RET_LENTOJ; 


STRING_PTRLSIZE 
END; 
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; 4437 81 2 IF .RET_LENCO] GTR K_MAX BUFFER, SIZE .; 
; 4438 ¢ THEN ° { 
> 4439 5 BEGIN + 
3 4440 5354 RET ae? « 512; * 
3 4441 5355 RETORN zs 
: 444 2328 3 : i 
> 444 5357 ; 

> 4444 5358 2 IF .SEPARATE_FLAG_ (FILE_TRAILER) % 
> 4445 5359 THEN 5 

: 4446 5360 BEGIN gi 
3 4447 P 5361 $FAO ( TRAILER_FORMAT, 3 
> 4448 Pp 230¢ CURRENT_LEN ' return length ; f 
> 4449 P 536 STRING_PTRLOJ i address of string F 
; 4450 5364 ); b 
3 4451 5365 : 

3; 445 5366 3 RET_LENCO) = pn 2 STRIN + CURRENT LEN; ; 4 
3 445 5367 3 STRING_PTRCADDR] = .STRING PTRLADDRI + .CURRENT_LEN; ; é 
> 4454 5368 3 STRING_PTRCSIZE] = K_MAX_BOFFER_SIZE - .RET_LENTO); .7 
; 4455 5369 2 END; & 
; 4456 5370 2 3 

3; 4457 5371 2 IF .RET_LENCO] GTR K_MAX_BUFFER_SIZE 2 4 
; 4458 5372 ; THEN $ 
3: 4459 5373 GIN 3 

; 4460 5374 3 RET encod = 512; 2 4 
3; 4461 5375 3 RETORN 3 4 
3; 4462 5376 2 END; ; 
3; 4463 5377 2 3 4 
3 4464 5378 2 IF .$BBLOCKCSCBCPSMSL_PRINT_CONTROL], SMBMSG$V_TRUNCATE] ¢ 4 
> 4465 5379 2 THEN g 4 
: 4466 5380 3 BEGIN 3 4 
3; 4467 P 5381 3 SFAO ( hp a bg nae. : 4 
3; 4468 P 5382 ; ' return length : 4 
> 4469 5383 STRING. "BTREOD i address of string 3; 4 
: 4470 5384 3 ; : 4 
3 4471 5385 3 s 4 
3 4472 5386 3 RET_LENCO) = .RET_LENCO) + .CURRENT ; 4 
3; 4473 5387 3 STRING_PTRCLADDR] = .STRING BTRCADDRT- * CURRENT bgN: 3 4 
3 4474 5388 3 STRING_PTRCSIZE] = K_MAX_BOFFER_SIZ& - .RET_LENTO] : 4 
3 4475 5389 2 ND; : 4 
3 4476 5390 2 3 4 
> 4477 5391 2 IF .RET_LENCO) GTR K_MAX_BUFFER_SIZE 3; 
3; 4478 2396 § THEN : 4 
3; 4479 539 GIN 3 4 
3; 4480 5394 ; RET ——* 512; > 
3 4481 5395 RETORN : 

3; 4482 5396 3 3 4 
3 4483 5397 3 4 
> 44846 P 5398 $FAO ( WIDTH FORMAT, g 4 
3; 4485 P 5399 CURRERT_LEN ! return length s 4 
3: 4486 P 5400 STRING PTRCO), ' address of string 3 4 
3; 4487 P 5401 SCCBLESMSL _FORM WIDTH) ' form width 3 4 
3 4488 2608 : 3 
3; 4489 540 3! 
3; 4490 5404 RET_LENCO) = .RET_LENCO) + .CURRENT ti" 3 3 
3 4491 5405 STRING_ PTRCADDR) = .STRING PTRCADDRI + .CURRENT BGM z4 
: ree 2406 STRING-PTRESIZE) = K_MAX_BOFFER_SIZE - .RET_LENT + 


mM 7 
iont == separation routines 16-Sep-19 


on 
ae 
arc 


- LONG 
-ADDRESS P.ADH 
eASCIIT \ /COPLES=!ULC!UL of !UL)\ 


44 25 37 31 21 O1DA3 P.ADB: 
00000005 01DA8 P.ADA: 
00000000° 01DAC 
44 25 37 31 21 3D 52 45 54 46 41 2F 20 aibes P.ADD: 
00000000 1DCO P.ADC: 
00000000" 010¢4 
54 53 52 55 42 2F 20 HY P.ADF: 
00000007 0150 P.ADE: 
00000000° 01004 
49 54 53 49 52 45 54 43 41 6 41 48 43 ¢f 20 81008 P.ADH: 
55 41 21 3D 53 43 HH 
4 1DFO P.ADG: 
0 poogy. 1DF4 
55 21 28 4C 55 21 3D 53 45 49 50 4F 43 2F [ 1DF8 P.ADJ: 
29 4C 55 21 20 66 6F 20 1E07 
68 0001 1£10 P.ADI: 
0000000° 01€14 


95:93:98 PR TSma SReisepanats 04952 


urn length | 
ress of string 


separaie Print ar dts 3 

v04-001 GET_QUALIFIERS = Get Switches/Qualifiers associ 14-Sep-19 
> 4494 408 IF .RET_LENCO] GTR K_MAX_BUFFER_SIZE 

> 4495 409 THEN 

> 4496 410 BEGIN 

: 4497 ae RET LENCO] = 512; 

> 4498 216 RETORN; 

; 4499 541 END; 

>; 4500 5414 

; 4501 5415 If .S$BBLOCKCSCBCPSMSL_PRINT_CONTROL], SMBMSG$V_WRAP) 
: ce§ 5416 THEN 

; 450 5417 BEGIN 

3; 4504 P 5418 $FAO ( WRAP_FORMAT, 

; 4505 P 5419 CURRENT_LEN 

> 4506 P 5420 STRING_PTRLOJ 

: 4507 5421 3 ; 

; 4508 2058 3 

: 4509 5423 3 RET_LENCO) = .RET_LENCOJ + .CURRENT_LEN; 
> 4510 5424 2 END; 

ree 8156 5 ' D hing if fl 

; ! Don't print anythin no flags were set 
: 2318 ase 5 ‘ wept: ' 

3 4514 5428 2 IF .RET_LENCO) LEQ 18 

>: 4515 ee6p T 

> 4516 5430 RET_LENCO) = 0; 

3; 4517 5431 

; 4518 5432 § ! Length returned must be less than max string size 
> 4519 5433 : 

; 4520 5434 IF .RET_LENCO] GTR K_MAX_BUFFER_SIZE 

; 4521 5435 THEN 

3; 4522 5436 IN 

> 4523 5437 3 RET LENCO) = 512; 

> 4524 5438 3 RETORN; 

: 4525 5439 2 END; 

: 4526 5440 2 

: 4527 5441 1 


ASCII \!17%D\ 
“ADDRESS P.ADB 


eASCIIT = \ /AFTER=!172D\ 
-BLKB 3 
13 
ESS P.ADD 
I \ /BURST\ 
7 
s? 


21 


-LONG 24 
-ADDRESS P.ADJ 
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SEPARATE Print Symbiont -- separation routines 16-Sep-1984 7:23:03 AX-11 Bliss-32 V4.0-74 
Sie e001 GET QUALIFIERS - Get suitches/cual itiers associ Joesep-1one 9:83.56 || FeRT ema tke sseeahare o$9-2 Page 17) 
44 45 45 46 2F 20 O1€18 P.ADL: .ASCII \ /FEED\ : | 
TENE -BLKB 2 
§8000008" OIE SG NOK toe soe aD Pci 
47 41 4C 46 $ % 1E28 P.ADN: ASCII \ /FLAG\ : 
1E F -BLKB 2 | 
itdittie if 4 ce segees ONRESS P ADN : 
53 41 21 3D 4D S52 4F 4&6 2F 8 1£38 P.ADP: .ASCII \ /FORM=!AS\ : 
OiEbe -BLKB 2 
QOO0000A 01644 P.ADO: .LONG 10 ; 
009000 0° O1E48 .ADDRESS P.ADP : 
52 45 44 41 45 48 2F 1E4C P.ADR: ASCII \ /HEADER\ : 
00000008 01654 P.ADQ: .LON 8 3 
4C 55 21 3D 54 4E 55 GF 43 SF 42 4F Pad aot etd P.ADT ASCH 7408 COUNT=!UL(!UL of !UL)\ : | 
2S : ° =. . fe) . Py 
29 4¢ 55 21 20 66 6F 20 4¢ 55 $f $3 O1EG > : 
OE? -BLKB 1 
00000018 01678 P.ADS: .LONG 27 : 
00000000" O1€7¢ .ADDRESS P.ADT : 
4C 55 21 3D 48 54 47 GE 45 4C 2F 20 O1E80 P.ADV: ASCII \ /LENGTH=!UL\ : 
O0000000C O1E8C P.ADU: .LONG 12 : 
00000000' O1E90 .ADDRESS P.ADV : 
53 41 21 3D 59 52 41 52 42 49 4C 2F 20 01694 P.ADX: ASCII \ /LIBRARY=!AS\ ; 
O1EA1 .BLKB 3 
0000000D O1EA4 P.ADW: .LONG 13 : 
00000000° O1EA8 .ADDRESS P.ADX : 
28 3D 4E 49 47 52 41 4D 2F 20 O1EAC P.ADZ: ASCII \ /MARGIN=(\ : 
01EB6 -BLKB 2 
QOO0CO0A O1EB8 P.ADY: .LONG 10 : 
00000000" 01€BC .ADDRESS P.ADZ : 
4C 55 21 3D SO 4F 54 O1ECO P.AEB: ASCII \TOP=!UL\ : | 
O1EC7 -BLKB 1 
00000007 O1ECB8 P.AEA: .LONG 7 : 
00000000" O1ECC ADDRESS P.AEB : 
4C 55 21 3D 4D 4F 54 54 GF 42 O1EDO P.AED: ASCII \BOTTOM=!UL\ : 
O1EDA -BLKB 2 
QOOOOO0A O1EDC P.AEC: .LONG 10 : 
00090000" OiEEO .ADDRESS P.AED : 
4C 55 21 3D 54 46 45 4C O1EE4 P.AEF: ASCII \LEFT=!UL\ ; 
00000009" 1EFO .ADDRESS P.AEF : 
4C 55 21 3D 54 48 47 49 52 O1EF4 P.AEH: ASCII \RIGHT=!UL\ : | 
QIEFD .BLKB 
00000009 01F00 P.AEG: .LONG : | 
00900000" 01F 04 .ADDRESS P.AEH : 
44 45 45 46 GF GE 2F 2 O1F08 P.AEJ: ASCII \ /NOFEED\ ; 
00000008 01F10 P.AEI: .LONG ; 
21 28 3D 50 55 54 45 53 SF 45 47 41 50 ef 2 1F18 P.AEL: .ASCII \ /PAGE_SETUP=(!AS)\ 
29 53 «41 iF t : 
0000001 1F2C P.AEK: . LONG 18 : 
00000000" 01F 30 .ADDRESS P.AEL : 
55 21 2¢ 4C 55 21 28 3D 53 45 47 41 50 ef 20 It 34 P.AEN: ASCII \ /PAGES=(!UL,!UL)\ ; 
01645 .BLKB 3 
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SEPARATE rint Symbiont -- separation routines Sep-19 AX-11 Bliss-32 V4.0-74 
vo4-0 GET QUALIFIERS - Get Switches/Qual i fiers associ 18-Sen- 198 $$: $3; % PRTSMB.SRC SEPARA TE.B 633;2 
DATE_FORMAT= P.ADA 
AFTER_ TIME FORMAT = P.ADC 
BURST” FORM DE 
CHARACTERISTICS FuRMATS 
FILE_COPIES_FORMAT= P.ADi 
FEED_FORMAT= P.AD 
FLAG_FORMAT= P.ADM 
FORM FORMATS P.ADO 
HEADER_FORMA P.ADQ 
JOB COON STORRATS P.ADS 
LENGTH FORMAT P.ADU 
LE ORART. PORMAT= P.ADW 
MARGIN_FORMAT= P.ADY 
TOP_FORMAT= P.AEA 
BOTTOM FORMAT= P.AEC 
LEFT_FORMAT= P.AEE 
RIGHT _FORMAT= P.AEG 
NOFEEB_FO = P.AEI 
SETUP_PAGE_FORMAT= P.AEK 
PAGES FORMAT= P.AEM 
pesear ee FORMAT= P.AEO 
PASSALL_FORMAT= P.AEQ 
PUNCTUATION FORMAT= P.AES 
SETUP_FILE_FORMAT= P.AEU 
SETUP-FORM-FORMAT= P.AEW 
SHEET_FORMAT= P.AEY 
SPACE FORMAT= P.AFA 
TRAILER_FORMAT= P.AFC 
TRUNCATE_FORMAT= P.AFE 
WIDTH_FORMAT= P.AFG 
WRAP_FORMAT= P.AFI 
O7FC 00000 GET_QUALIFIERS: 
WORD Save R2,R3,R4,R5,R6,R7,R8,R9,R10 
SA FF42 CF 9E 00002 MOVAB PUNCTUATION_FORMAT, R10 
59 000000006 00 9€ 00007 MOVAB SYS$FAO, RO” 
5 AC AE 9E O000E MOVAB -84(SP), 
56 D4 00012 CLRL PUNC Vs, 
08 AE 04 00014 CLRL CURRENT 
16 AE 0200 8F 3C 00017 MOVZ2WL #512, STRING. PTR 
50 08 AC 00 00010 MOVL STR_DESC, R 
18 «OA 04 AO D0 90021 MOVL én0) STRING_ PTR+4 
5 C AC 00 00026 MOVL  RET_LEN, R 
65 B4 0002A CLRW (RS) 
4C AE 11. D0 0002C MOVL #17, AFT_DATE_PTR 
50 AE 30 AE 9E 00030 MOVAB AFT_BUFF, AFT_DATE_PTR+4 
54 04 AC 00 00035 VL $f . 
eh AS 9F 00039 PUSHAB 
0 AE 9F 0003C SHAB AFT_DATE_PTR 
OC AE 99F 0003F PUSHAB TEMP_LEN 
FDFO CA 9F 00042 PUSHAB DATE~FORMAT 
69 04 FB 0046 CALLS #4, SYSSFAO 
44 SOA 11 D0 00049 MOVL #17, TEMP_PTR 
48 AE 1¢ AE 9E 00040 MOVAB_ TEMP_BUFF> TEMP_PTR+4 
015C C& OF 00052 PUSHAB 348(R4) 
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v04-001 GET_QUACIFIERS - Get Switches/Qualifiers associ 1o-808- 1382 95:43:93 PRTSMB.SRCJSEPARATE .B32;2 oe 305 
48 AE 9F 00056 PUSHAB TEMP_PTR ; 
0¢ AE 9F 00059 PUSHAB TEMP"LEN : 
FDF A 9F 0005 PUSHAB DATE~FORMAT : 
69 4 FB 0006 CALL , SYSS$FAO : 
50 BE 48 BE 04 AE 29 0006 CMPC3 TEMP_LEN, @TEMP_PTR+4, @AFT_DATE_PTR+4 + 4843 
27 (13 9006A BEQL 1 : 
24 AG OF 0006C PUSHAB 36(R4) + 4851 
18 AE OF 90065 PUSHAB STRING_PTR : 
10 AE 9F OO re PUSHAB CURRENT_LEN : 
FEO8 CA 9F 0007 PUSHAB AFTER TIME FORMAT : 
69 04 FB 00079 CALLS #4, SYS$FAO : 
65 08 AE AO o907¢ ADDW2 CURRENT_LEN, (R5) > 4853 
18 AE 08 A c0 008 ADDL2 CURRENT-LEN, STRING_PTR+4 + 4854 
14 AE 6 C 00085 MOVZWL (R5), STRIN : 4855 
14 AE 00000200 ‘BF 14 AE C3 00089 SUBL3 STRING PTR, #512, STRING_PTR : 
58 0154 C4 9E 00093 18 MOVAB 340(R4J, RB : 4858 
24 68 £9 00098 BLBC (RB), 2$ : 
146 AE 9F 00098 PUSHAB STRING PTR + 4864 | 
OC AE 9F O009E PUSHAB CURRENT_LEN : 
FE18 CA 9F OOOAT PUSHAB BURST FORMAT : 
69 03 FB OOOAS CALLS #3, SYS$FAO : 
65 08 AE AO OO0A8 ADDW2 CURRENT_LEN, (R5) + 4866 | 
18 AE 08 AE CO OOOAC ADDL2 CURRENT-LEN, STRING_PTR+4 > 4867 | 
14 AE 65 3C 00081 MOVZWLE (R5), STRING_PTR : 4868 
14 AE 00000200 ‘BF 14 AE C3 00085 SUBL3  STRING_PTR, #512, STRING_PTR : | 
34 Ad BS OOOBF 2$ TSTW  52¢R4) + 4871 
27. 12 000C2 BNEQ 3$ : 
34 AG OF O00C4 PUSHAB 52(R4) : 4878 
18 AE 9F 000C7 PUSHAB STRING _PT : 
10 AE 9F OOOCA PUSHAB CURRENT_LEN ; 
FE38 CA 9F OO00CD PUSHAB CHARACTERISTICS_FORMAT : 
69 04 FB 00001 CALLS #4, SYSSFAO ; 
65 08 AE AO 000D4 ADDW2 CURRENT_LEN, (R5) ; 4880 
18 AE 08 AE CO 000D8 DDL2 CURRENT-LEN, STRING_PTR+4 > 4881 | 
14 AE 65 3¢ 000DD MOVZWL (R5), STRING_PT > 4882 | 
14 AE 00000200 ‘BF 14 AE C3 000E1 SUBL3 STRING PTR, #512, STRING_PTR ; 
57 0124 C& SE OOOEB 38: MOVAB 292(R4J, R? : 4887. 
24 67 02 €1 O00FO BBC #2, (R7S, 4$ ; 
14 AE OF OOOF4 PUSHAB STRING PTR + 4893 
OC AE 9F OO0F7 PUSHAB CURRENT _LE F | 
FE68 CA 9F OOOFA PUSHAB FEED FORMAT : 
69 03 FB OOOFE CALLS #3, SYS$FAO ; | 
65 08 AE AO 00101 ADDW2  CURRENT_LEN, (RS) > 4895. 
18 AE 08 A £0 00105 ADDL2 CURRENT“LEN, STRING_PTR+4 : 4896. 
14 AE 65 3C OO10A MOVZWL (R5), STRING PTR : 4897. 
14 AE 00000200 &F 14 AE C3 0010€ SUBL3  STRING_PTR, #512, STRING_PTR ; | 
01 64 A& D1 00118 4$: CMPL 100(R4J, wi > 4900 | 
2B 15 0011C BLEQ 5$ ; | 
64 A& DD OOITE PUSHL 100(R4) > 4909 | 
7E 64 Ad 7D 00121 MOVQ 100(R4), =-(SP) : 
20 AE 9F 00125 PUSHAB STRING PTR : 
18 AE 9F 00128 PUSHAB CURRENT LEN ; 
FE58 CA 9F 00128 PUSHAB FILE _COPIES_FORMAT ; 
69 06 FB 01 f CALLS #6, SYSSFAO F 
65 08 AE AO 00132 ADDW2  CURRENT_LEN, (R5) : 4911 
18 AE 08 AE c0 00136 ADDL2  CURRENTLEN, STRING_PTR+4 > 491 
14 AE 65 3C 00138 MOVZWL (R5), STRING_PTR : 491 
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v04-001 GET QUALIFIERS = Get Switches/Qualifiers associ 14-Sep =198¢ 95: $3 :93 PRTSMB. SRed SEPARATE. 53 32 ° (34) v04 
14 AE 00000200 = &F 146 AE C3 0013F SUBL3 STRING_PTR, #512, STRING PTR : 
24 68 01 Ff 0149 5$ BBC 1, (RB), 6 - + 4916 
146 AE SF 00140 PUSHAB STRING PTR : 4922 
OC AE OF 3129 PUSHAB CURRENT_LEN : 
FE78 CA 9F 0015 PUSHAB FLAG FORMAT : 
69 03 re 00157 CALLS #3, SYSSFAO 3 
65 08 AE AO 0015A ADDug CURRENT_LEN, (R5) + 4924 
18 AE 08 A £0 0155 ADDL2 CURRENT-LEN, STRING_PTR+4 + 4925 
14 AE t ¢ 016 MOVZ2WL (R5), STRING_PTR + 4926. 
14 AE 00000200 &F 14 AE C3 00167 SUBL3. STRING PTR, #512, STRING_PTR : | 
0084 C4 SF 00171 6$ PUSHAB 132(R4J > 4932) 
18 AE OF 00175 PUSHAB STRING PT : | 
10 AE 9F 00178 PUSHAB CURRENT_LEN ; 
FE8C CA 9F 0017B PUSHAB FORM FORMAT : 
69 04 FB 0017F CALLS #4, SYS$FAO : 
65 08 AE AO 00182 ADDW2 CURRENT_LEN, (R5) + 4934 
18 AE 08 AE CO 00186 ADDL2 CURRENT “LEN, STRING_ PTR+4 + 4935. 
14 AE 65 3C 00188 MOVZ2WL (RS), STRING_PTR + 4936. 
14 AE 00000200 8F 14 AE C3 0018F SUBL3 STRING PrAN O85 13, STRING_PTR : 
0200 8F 65 Bi 00199 CMPW 3S s«(RS), 512° : 4938 
2D 1A 0019E BGTRU 8$ ; | 
24 67 01 €1 OO1A0 BC #1, (R7), 7$ + 4945. 
14 AE SF 0014 PUSHAB STRING PTR + 4951. 
OC AE 9F OO1A7 PUSHAB CURRENT_LEN : 
FE9C CA 9F OO1AA PUSHAB HEADER_FORMAT : | 
69 03 FB OO1AE CALLS #3, SYSSFAO : 
65 08 AE AO 001B1 ADDW2 CURRENT_LEN, (R5) + 4953 
18 AE 08 AE CO 001B5 ADDL2 CURRENT-LEN, STRING_PTR+4 + 4954 
14 AE 65 3C OO1BA MOVZ2WL (RS), STRING_PTR : 4955. 
14 AE 00000200 8F 14 AE C3 001BE SUBL3  STRING_PTR, #512, STRING_PTR : | 
0200 8F 65 B81 001C8 7$ CMPW 3s (RS), #512 : 4958 | 
03 1B O01CD 8$ BLEQU 9$ ; 
051C 31 OOICF BRW 45$ : 
50 00AO C4 DO 00102 98 MOVL  160(R4), RO : 4965. 
01 50 01 00107 CMPL RO, #1 F | 
2C 15 OO1DA BLEG } =_:108 ; | 
50 od 0010C PUSHL RO t 4974 
00AS4 C4 DD 001DE PUSHL  164(R4) ; 
50 DD 001E2 PUSHL RO : | 
20 AE OF OO1E4 PUSHAB STRING PTR : 
18 AE 9F OO1E7 PUSHAB CURRENT _L : 
FECO CA 9F OO1EA PUSHAB JOB. COURT FORMAT : | 7 OR 
69 06 FB OO1EE CALLS FAO ; 
65 08 AE AO OO1F1 ADDUg CURRENT L (RS) : 4976. 
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; Routine Size: 


SEPARATE Print syebiont == separation routines 

v04-001 GET_QUEVE_QUALIFIERS = Gets the qualifiers pert 14-Sep-1984 

: ¢2 2 ote ! Rsbttl *GET_QUEUE_QUALIFIERS = Gets the qualifiers pertaining to queues’ 
3 4531 5444 1 ! Functional Description: , 

: 45 ¢ 5445 1! This routine returns a string containing the all relevant file qualifier 
: 453 5446 1! information. 

: 4534 5447 1! 

: 4555 5448 1 ! Formal Parameters: 

: 4536 5449 1! - Address of the SCB 

: 4537 5450 1! STR_DESC - Desc of String to Return 

; 4538 5451 1! RET_LEN - Return Length of Desc. 

: 4539 eres 1! ’ 

; 4540 54535 1! Implicit Inputs: 

3; 4541 5454 1! none 

: 4542 5455 1 | 

3: 4543 5456 1 ! Implicit Outputs: 

> 4544 aa none 

> 4545 5458 1! 

3; 4546 5459 1 ! Returned Value: 

3; 4547 5460 1! non 

: 4548 5461 1! 

3 4549 Pee 1 ! Side Effects: 

; 4550 5465 1! non 

; 4551 5464 1 !-- 

; 4552 5465 1 ROUTINE GET_QUEVE_QUALIFIERS ( 

; 4553 5466 1 sts : REF $BBLOCK ' $CB 

> 4554 5467 1 STR_DESC : REF VECTOR), i Output buffer desc 
; 4555 5468 1 RET_LEN : REF VECTOR C,WORDJ ! Return length (word) 
3: 4556 5469 1 ) =: NOVALUE = 

: 4557 5470 2 BEGIN 

; 4558 5471 2 BIND 

3; 4559 P 5472 2 BEGIN FORMAT = $DESCRIPTOR ( 

: 4560 5473 2 ‘Gueue Qualifiers:'), 

; 4561 5474 2 

3; 4562 P 5475 2 RESET_FORMAT = $DESCRIPTOR ( 

3; 4563 P 5476 2 "RESET=""", 

3 4564 P 5477 2 "'AS', ! = Reset Module 

; 4565 5478 2 os 

3: 4566 5479 2 

3; 4567 P 5480 2 JOB_RESET_MODULE_FORMAT = SDESCRIPTOR ( : 

3: 4568 5481 2 ' /SEPARATE=T'), ! = separation 

3: 4569 5482 2 

3; 4570 P 5483 2 INSERTION_FORMAT = S$DESCRIPTOR ( . 

: 4571 5484 2 "IAC; ! = separation flags 
$ Sele 5485 § 

3: 457 5486 

3 4574 5487 2 LITERAL 

3: 4575 5488 2 K_MAX_BUFFER_SIZE = 512; 

: 4576 5489 § 

: 4577 5490 LOCAL 

; 4578 5491 2 INSERT_FLAG : INITIAL (0), 

3; 4579 2438 § CURRENT_LEN : INITIAL £9). . . 

3 £289 rh STRING_PTR : VECTOR (2); ! Pointer to current string 
: 4582 5495 2 STRING_PTRCSIZE) = K_MAX BUFFER SIZE; Ave 

; 4583 5496 STRING_PTRCADDR) = .STR_DESCCADBRI; ! init address 

3; 4584 5497 

3 4585 5498 RET_LENCO) = 0; 
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M 
Print Symbiont <= separation routines 16-Se 4 3:03 AX-11 Bliss-32 V4.0-74 
GET GUEUE QUALIFIERS = Gets ther custifiers pert 1eekepeione Soraoice || Lem TeMeOshes see akciera$5.2 
499 
200 $FAO ( BEGIN FORMAT, 
01 CURRERT_LEN ' return Length 
$508 ' STRING_PTRLOJ, i address of string 
504 : 
5505 RET LENCO] = .RET_LENCO) + .CURRENT tthe, 
2206 STRING _PTREADDR = .STRING PTRLADDR] + YaReNT GN: 
2207 STRING_PTRCSIZE] = K_MAX_BOFFER_SIZE = .RET_LENT 
5509 
2210 IF .SEPARATE_FLAG_ (JOB_BURST) OR 
511 SEPARATE_FLAG_ (JOB_FLAG) OR 
2218 -SEPARATE-FLAG. (JOB-TRAILER) OR 
551 -SCB_SIZE- (JOB_RESET_MODULES) 
5514 EN 
5515 BEGIN 
5516 ; SFAO ( JOB_RESET_MODULE_FORMAT, | /SEPARATE 
5517 CURRENT_LEN ! return Length 
5518 3 STRING_PTRLOJ i address of string 
5519 3 ); 
5520 3 
5521 3 RET_LENCO] = .RET -tENCO] + .CURRENT_LEN; 
2288 3 STRING_PTRLADDR] = .STRING PTRLADDRI + - CURRENT LEN; 
2257 ; STRING-PTRESIZE) = K -MAX_BOFFER_SIZE - .RET_LENTOJ; 
5525 3 IF .SEPARATE_FLAG_ (JOB_BURST) 
5526 3 THEN 
5527 4 BEGIN 
5528 4 SFAO ( 
22¢ 4 INSERTION_FORMAT, 
5530 4 CURRENT ptEN ! return length — 
5531 4 STRING PTR(OJ, ! address of string 
5532 4 UPLIT Sante (ZASCIC'BURST") 
5533 4 ); 
5534 4 
5535 4 INSERT_FLAG = 1; 
5536 4 RET LENCO] = .RET_LENCO) + .CURRENT 
5537 4 STRING PTR gOES = .STRING PTRCADDRI + Me CURRENT LEN; 
5538 4 STRING_PTRCSIZEJ] = K_MAX_BOFFER_SIZE - .RET_LENTO); 
5539 3 END; 
5540 3 
5541 3 IF .SEPARATE_FLAG_ (JOB_FLAG) AND 
2206 ; . INSERT_FLAG 
554 
5544 4 BEGIN 
5545 4 $FAO ( 
5546 INSERTION_FORMAT, 
5547 4 cyanent pte ' return Length 
5548 4 STRING PTRCO), ! address of string 
5549 4 UPLIT avie (ZASCIC’,") 
gee) " 
3350 4 RET_LENCO) = .RET_LENCO] + . CURRENT ten 
5553 4 STRING _PTREADOR = STRING _PTRLADDR] + .CURRENT Pa 
aged : pining pia SIZE] = K_MAX_BOFFER_SIZE - .RET_LENT 
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SEPARATE Print Symbiont == separation routines 16-Sep-1984 02:23:03 AX=11 Bliss-32 V4.0-74 Page 152 | SEF 
vo4-001 GET_QUECE. QUALIFIERS = Gets the qualifiers pert 1228087 382 93:93:98 PRTSMB.SRC SEPARATE .039;2 9° 35) v0! 
3 4643 3336 3; 4 
> 4644 55 IF_.SEPARATE_FLAG_ (JOB_FLAG) 3; 4 
3 4645 558 THEN 3 4 
> 4646 559 4 BEGIN : 4 
> 4647 P 2260 4 FAO ( 3 
: 4648 P 5561 4 INSERTION_FORMAT, 3 4 
3 4649 Pp 226¢ 4 CURRENT_LEN ' return Length : 4 
> 4650 pP 5563 4 STRING. PTRLO), i address of string 3 
; 4651 P 5564 4 UPLIT BYTE (ZASCIC*FLAG') % 
3 465 5565 4 ); 3 4 
: 465 5566 4 ; 4 
> 4654 5567 4 INSERT FLAG = 1 3 4 
> 4655 5565 4 RET LENCO) = .RET_LENCO] + .CURRENT_LEN; 4 
; 4656 5569 4 STRING _PIREADOR: = .STRING PTRCADDR] + .CURRENT_LEN; 3 4 
3 4657 5570 4 STRING_PTRESIZE) = K_MAX_BOFFER_SIZE = .RET_LENTOJ; s 4 
3 4658 5571 3 END; | ; 4 
: 4659 3972 3 | 3 4 
3 4660 557 ; IF .SCB_SIZE_ (JOB_RESET_MODULES) AND : 4 
: 4661 5574 . INSERT_FLAG s 4 
3 466 5575 3 THEN | 3 4 
3 466 5576 4 BEGIN | 3: 4 
> 4664 Pp 5577 4 $FAO ( | 3 4 
> 4665 Pp 5578 4 INSERTION_FORMAT, 3 4 
; 4666 P 5579 4 CURRENT _LEN ! return Length | ; 4 
3; 4667 P 5580 4 STRING _PTRLO), ! address of string 3 4 
3 4668 P 5581 4 UPLIT BYTE (%ASCIC',") | 3 4 
> 4669 3982 4 ); ; 4 
3 4670 5583 4 3 4 
3 4671 5584 4 RET_LENCO)] = .RET_LENCO) + .CURRENT_LEN; 3 4 
3 4672 5585 4 STRING_PTRCADDR] = .STRING PTRCADDR] + .CURRENT_ LEN; : 4 
: 4673 5586 4 STRING_PTRCSIZE) = K_MAX_BOFFER_SIZE - .RET_LENTOJ; 3: 4 
3 4674 5587 3 ND; 3 4 
: 4675 5588 3 3 4 
: 4676 5589 3 IF .SCB_SIZE_(JOB_RESET_MODULES) 3 4 
> 4677 5590 3 THEN : 4 
: 4678 5591 4 BEGIN | 3 4 
3 4679 P 3992 4 $FAO ( 3 4 
3 4680 P5593 4 RESET_FORMAT, | 3 4 
; 4681 P 5594 4 CURRENT LEN ! return Length | : 4 
3 468 P 5595 4 STRING PTRCO), ! address of string : 4 
3 468 P 5596 4 SCBCPSA$Q_JOB_RESET_MODULES) | : 4 
3 4684 5597 4 ); | : f 
3 4685 5598 4 : ij 
3 4686 2599 4 RET_LENCO] = .RET_LENCO) + 5 CURRENT LEN; 3 j 
3 4687 600 4 STRING_PTRLADDR) = .STRING PTREADDR] + .CURRENT LEN: i 
3 4688 5601 4 STRING_PTRCSIZE} = K_MAX_BOFFER_SIZE = .RET_LENTO); ij 
3 4689 2602 END; 3: i 
3 4690 560 : i 
: 4691 5604 IF .SEPARATE_FLAG_ (JOB_TRAILER) AND 35 
> 469 5605 . INSERT_FLAG 
3 469 2606 3 EN 
3 4694 5607 4 BEGIN 
3 4695 P 5608 4 $FAO ( 
3 4696 P 5609 4 INSERTION_FORMAT, 
3 4697 P 5610 4 CURRENT_LEN ! return length | 
> 4698 P5611 4 STRING. PTRLO) i address of string 
> 4699 P 5612 4 UPLIT BYTE (ZASCIC',") 
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FORMAT 
EN 
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! return length | 
! address of string 


6 


EN 
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INSERTION FORMAT, 
CURRENT OL 

STRING 

UPLIT 6 


); 


RET LENCO) 


“PTR 


T 
STRING 


RET_LENCO) LEQ 18 
RET_LENCO) = 0; 
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STR 
! Don't print anything if no flags were set 


g size 
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th 
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_MAX_BUFFER 
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ORN; 
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SEPARATE Print Symbiont <= separation routines 1h-se -1984 :03 AX-11 Bliss-32 V4.0-74 Pp 54 SEP 
v04=001 GET_ QUEUE. QUALIFIERS = Gets the mee pert 14- et 98: $392 PRTSMB SR aeSseeakate 04952 age 424 vO4 
22 3D 54 45 53 45 780 P.AFR: .ASCII \RESET="\ : : 5 
53 4) ; 787 “ASCII \!AS\ : : 5 
2 0278A SASCII \"N\ : : 5 
788 -BLKB 1 s 3 
00000008 0278C P.AFQ: <LONG 11 ; ; 5 
00900000" 79 -ADDRESS P.AFR ; : 5 
28 3D 45 54 41 52 41 50 45 53 ef : 02794 P.AFT: .ASCII \ /SEPARATE=(\ : : 5 
0000000¢ 0 7A0 P.AFS: .LONG 12 : : 5 
00000000" 027A4 .ADDRESS P.AFT : : 5 
43 41 2% O27AB P.AFV: ASCII \!AC\ : : 5 
027AB -BLKB 1 : 5 
00000003 0 7AC P.AFU: .LONG 3 ; 7 5 
00090000" 780 -ADDRESS P.AFV : : 5 
54 53 52 55 42 05 02784 P.AFW: ASCII <5>\BURST\ : : 5 
2C 01 O27BA P.AFX: <ASCII <1>\,\ : 7 5 
47 41 4C 46 04 O27BC P.AFY: ASCII <4>\FLAG\ : : 5 
2C 01 O27C1 P.AFZ: ASCII <1>\,\ : : 5 
2C 01 O27C3 P.AGA: .ASCII <1>\.\ : | : 5 
52 45 4C 49 41 52 54 O07 027€5 P.AGB: ASCII <7>\TRAILER\ : 7 5 
29 01 O27CD P.AGC: .ASCII <1>\)\ : | ; 3 
BEGIN. FORMAT P.AFO : 5 
RESET -F P-AFQ 7 5 
JOB_R RESET. "MODULE FORTS : 3 
INSERTION_FORMAT= P.AFU : 2 
| : 5 
OOFC 00000 GET_QUEUE_QUALIFIERS: 3 5 
.WORD Save R2,R3.R4,R5,R6,R7 : 5465. : 5 
57 D8 AF 9E 00002 MOVAB INSERTION FORMAT, R? : : 5 
56 000000006 00 9E 00006 MOVAB SSFAO, R6 : : 5 
SE 08 C2 0000D SUBL2 SP : ; 5 
55 04 00010 CLRL. INSERT_FLAG : 5470) : 5 
7E D4 00012 CLRL CURRENT ; : 5 
04 AE 0200 8F 3C 00014 MOVZWL #512, STRING PTR : 5495. 3 3 
50 08 AC DO OOO1A STR DESC : 5496 | : 5 
08 AE 04 Ad DO 001g MOVL 4(RO) STRING. PTR+4 : 7 5 
52 0c AC DO 0002 MOVL  RE1_LEN, R2 > 5498 | 3: 5 
62 B4 00027 (R2T ; : 5 
04 AE 9F 00029 PUSHAB STRING _PTR : 5503. 3 5 
04 AE 9F 0002C PUSHAB CURPENT_LEN ; > 5 
CC A? OF O002F PUSHAB BEGIN FORMAT : : 5 
66 03 FB 000 ¢ CALL #3, SYSSFAO : : 5 
62 6— AO 000 ADDW2  CURRENT_L (R2) : 5505 | 
08 AE 6E CO 00038 A CURRENT”LEN, STRING_FTR+4 > 5506 | 
04 AE 62 f 0003C MOVZWL (R2), ST PTR 3 5507) 
04 AE 00000200 8F 4 AE C3 00040 SUBL3 STRING_°TR, #512, STRING_PTR ; 
53 4 at DO O004A MOVL fe R3 : 5510 
54 0154 C3 OE 9004 MOVAB 340(R3), RG : 
10 64 05 €0 0005 BBS #5, (R4S, 18 : 
0c 64 04 £0 0005 BBS #4’ (RG). 1$ : 5511. 
08 01 Ad ES 00098 BLBS 1(R4), 1$ ; 31g. 
03 0080 C3 ; 05F BLBS 176(R%), 1$ > 5513. 
0168 31 90064 BRW 9$ ; 
04 AE 9F 00067 18: PUSHAB STRING PTR > 5519 
04 AE 9F OO06A PUSHAB CURRENT_LEN ; | 


_— 
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SEPARATE Print Symbiont -- separation routines 16-Sep-1984 02:23:03 AX-11 Bliss-32 V4.0-74 Pp 55. SEF 
vite GET GUEUE QUALIFIERS’ > Gets the quatitiers pert lnckep-19be o3;8315% — EPAT Emm sneSseeaMate.o45-2 age 42} v4 
F4 A? OF 00060 PUSHAB JOB_RESET_MODULE_FORMAT ; 
6 03 FB 0070 CALL 3 inte T, ; 
6 6— Ad 0007 ADDW2  CURRENT_LEN, (R2) : 5521 
08 AE of ¢ 0076 ADDL2 CURRENT“LEN, STRING_PTR+4 : 3320 
04 AE é 007A MOVZWL (R2), : 552 
04 AE 00000200 &F 04 AE C Ove SUBL3 STRING PTR, #512, STRING_PTR : 
26 64 0 Ff 0008 BBC #5, (RZ), 2S > 5525 
08 A? SF 0008C PUSHAB  P.AFW > 5533 
08 AE 9F OO08F PUSHAB STRING_PTR : 
08 ag oF 90098 PUSHAB CURRENT._LEN : 
5? DD 0009 PUSHL R : 
be 04 FB 00097 CALLS #4, SYSSFA : ; 
55 01 DO 0009A OVL. #1, INSERT FLAG + 5535 
62 6— AO 0009D ADDW2  CURRENT_LEN, (R : 5536. 
08 AE oF g? 0O00A0 ADDL2 CURRENT_LEN, STRING_PTR+4 3 5537) 
04 AE 62 3C O00A4 MOVZWL (R2), STRING_P : 5538, 
04 AE 00000200 8F 04 AE C3 O000A8 SUBL3 STRING PTR, #512, STRING_PTR $ 
50 64 04 £1 000B2 2s BBC #4, (RZ), A$ ; 9541) 
23 55 £9 00086 BLBC _—sCINSERT_FLAG, 3$ + 5542 
O& A? SF 000B9 PUSHAB P.AFX : 5550. 
08 AE 9F OOOBC PUSHAB STRING_PT : | 
08 AE 9F OOOBF PUSHAB CURRENT_LEN ; 
57 DD 000C2 PUSHL R7 : | 
66 04 FB 000C4 CALLS #4, SYSSFAO : | 
62 6E AO 000C7 ADDWg CURRENT_LEN, (R2) : 5552) 
08 AE 6— CO OOOCA ADDL CURRENT_LEN, STRING_PTR+4 ; 5553. 
04 AE 62 %3C OOOCE MOVZWL (R2), S PTR : 5554 
04 AE 00000200 8F 04 AE C3 00002 SUBL3  STRING_PTR, #512, STRING_PTR : 
26 64 04 €1 000DC 3$ BBC a, 5 i : $557. 
10 A7 9F QOOEO PUSHAB P.AFY : 5565. 
08 AE 9F O00E3 PUSHAB STRING_PTR : | 
08 Ac 9F OO0E6 PUSHAB CURRENT_LEN 3 
57 DD O00E9 PUSHL 7 : | 
66 04 FB OODEB CALLS #4, SYSSFA : | 
55 01 DO OO0EE #1, INSERT FLAG : 5567) 
62 6E AO OOOF1 ADDW2 CURRENT_LE ; 5568 
08 AE 6E CO 000F4 ADDL2 CURRENT “LEN, STRING_PTR+4 : 5569 | 
04 AE 62 3C 000F8 MOVZWL (R2), STRING PTR : 5570. 
04 AE 00000200 8F ag C3 OOOFC SUBL3 STRING_PTR, #512, STRING_PTR ; 
50 00B0 C3 £9 00106 4$ BLBC 176(R3J, 6 ; 5973 | 
23 55 €9 0010B BLBC _—sCINSERT_FLAG, 5$ : 5574 | 
15 A? 9F OO10E PUSHAB P.AFZ : 5582. 
08 AE 9F 00111 PUSHAB STRING PTR Z 
08 A oF Betts PUSHAB CURRENT LEN : 
57 DD 00117 PUSHL R : 
66 04 FB 00119 CALLS #4, SYSSFAO : | 
62 6E AO 0011¢ ADDW2  CURRENT_LEN, (R2) > 5584. 
08 AE 6E £0 OOF ADDL2 CURRENT“LEN, STRING_PTR+4 : 5585. 
04 «AE 62 3¢ 00123 MOVZWL (R2), STRING PTR : 5586. 
04 AE 00000200 &F 04 AE C3 00107 SUBL3 STRING_PTR, #512, STRING_PTR : | 
25 0080 ¢ £9 00131 5$: LBC =—_—«WM76 (R33, 68 > 5589 | 
00B0 C3 9F 00136 USHAB 176(R3) : 5597 | 
08 AE 9F OO13A PUSHAB STRING PTR ; 
08 A 9F 00130 PUSHAB CURRENT_LEN é 
£0 A? OF 90140 PUSHAB RESET FORMAT : 
66 04 FB 00143 CALLS #4, SYS$FAO : 
62 6E AO 00146 ADDW2  CURRENT_LEN, (R2) ; 5599 
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SEPARATE Print Symbiont == separation routines 16-Se AX-11 Bliss-32 V4.0-74 Page 157 
voe- 001 GET _F ,” QUALIFIERS : Get the qualifiers which 14- =300 71382 98: 3: 3 PRTSMB. SRC SEPARA TE.B B33;2 ° (36) 
sbott - Get the qua iers which pertain to forms’ 

ofe0 26 Te bttl 'GET_FORM_QUALIFIERS = G h Lifi hich f 

cre 664 i Funct tenet Description: 

475 665 This routine returns a string containing the all relevant file qualifier 

tree $98 information. 

4756 668 Formal Parameters: 

4757 ry - Address of the SCB 

4758 670 STR_DESC - Desc of String to Return 
; 4759 671 RET_LEN - Return Length of Desc. 
; 4760 ore 
; 4761 

47 


: 5 
; 5 
: 5 
: 5 
: 5 
: 5 
: 5 
; 5 
; 5 
; 5 
: 5 
: 5 
; 5 
; 5 
; 5 
; 5 
; 5 
; 5 
; 5 
; 5 
; 4773 5 
> 4774 5 
: 4775 5 
; 4776 5 
3 4777 5 
; 4778 5 
; 5 
: 5 
; 5 
; 5 
; 5 
; 5 
; 5 
: 5 
; 5 
; 5 
: 5 
; 5 
: 5 
: 5 
; 5 
: 5 
; 5 
: 5 
; 5 
; 5 
3 5 
; 5 
: 5 
; 5 
; 5 
; 5 
; 5 
: 5 


Implicit Inputs: 
none 


STRING_PTRCSIZE) 
STRING_PTRLADDRJ 


RET_LENCOJ = 0; 
$FAO ( BEGIN ar hie 


T_LEN 
_ STRING, PTROO), 


K_MAX BUFF 


= ER_SIZE; 
= RETR DESC CADBR); 


init address 


6 67 
6 674 

476 675 : 

4764 676 Implicit Outputs: 

4765 677 none 

4766 678 

4767 679 Returned Value: 

4768 680 n 

4769 681 4 

4770 682 ! Side Effects: 

4771 683 ! non 

4772 684 leo 
685 ROUTINE GET_FORM_QUALIFIERS ( 
686 5¢cB : REF $BBLOCK ! §¢s 
687 STR_DESC : REF VECTORL2), i Output buffer desc 
688 RET_LEN : REF VECTOR C,WORDJ ! Return length (word) 
689 ) : NOVALUE = 
690 BEGIN 

4779 691 ND 

4786 P 569 BEGIN FORMAT = SDESCRIPTOR( 

4781 69 "Form Qualifiers:'); 

4782 69 

4783 69 LITERAL 

4784 69 K_MAX_BUFFER_SIZE = 512; 

4785 69 

4786 69 CAL 

4787 69 CURRENT_LEN : IN one (0), 

4788 4 STRING_PTR : vec R (2); ! Pointer to current string 
70 
70 
70 
70 
70 
70 
70 


return Length 
address of string 


~ 
~“ 
. *) 
~N~ 
vvvD 


— 


4801 RET_LENCO] = LENCO] + CURRENT LEN; 
480 STRING. PTR anon) = STRING PTRLADDR] + «CURRENT LEN: 
480 STRING-PTRCSIZE) = K_MAX_BOFFER SIZE - .RET_LENT 


ROPOPIPDPNININININGNYNIPNINPININPINININININININININININID 2 9 9 9 3e 
e 


(fam ALA Ar rrr ar A 


——_—__-—_—-_--—_-—_ —_ — — —a — — 


; Routine Size: 85 bytes, Routine Base: CODE + 29CC 


| 9 
| SEPARATE Print Symbiont -- separation routines on Sep 4 AX-11 Bliss-32 V4.0-74 P 
04-001 GET FORM QUALIFIERS Get the cualitiers which icesep-ione S5:93i5e PART bah dessze Mes 0-245.» age 128 

: 4807 5719 ' Don't print anything if no flags were set eS 
: 408 0) 8) gprtetey | 
; 4810 57 ¢ THEN ~ > 
: 4811 57 RET_LENCOJ = 0; ; ¢ 
: dBis esse § Length d be less th i { 

Ps i ngt returned must be less than max strin size P 
> 4814 5726 rahe! LENCO] GTR K_MAX_BUFFER_SIZE . F| 
> 4815 2727 ; é 
: 4816 5728 GIN 3! 
: 4817 5729 RET LENCO] = 512; : é 
: 4818 5730 3 RETORN ; é 
: 4819 5731 2 ND; ; é 
: 4820 3732 2 : § 
> 4821 5733 1 END; 3 | 
if 
73 72 65 69 66 69 6C 61 75 51 20 6D 72 6F 46 02982 P.AGE: .ASCII \form Qualifiers:\ ; ; 
029¢2 .BLKB 2 3 
00000010 0294 P.AGD: :LONG 16 ; : § 
00000000' 029¢8 “ADDRESS P.AGE : ; 
BEGIN_FORMAT= P.AGD ; 
: 4 
0004 00000 GET_FORM_QUALIFIERS: 34 
“WORD Save R2 : 5685 | 
SE 08 C2 00002 SUBL2 #8, SP : 7 § 
7E 04 00005 CLRL CURRENT LEN : 5690 | 7 5 
04 AE 0200 8F %3C 00007 MOVZ2WL #512, STRING. PTR : 5703. : 5 
50 08 AC 00 0000D MOVL STR DESC : 5704. : 5 
08 AE 04 AO DO 00011 MOVL 4(R0) SSTRING. PTR+4 ; : § 
52 0C aC DO 00016 MOVL  RET_LEN, R2 : 5706) 7 5 
62 B4 OOO1A CLRW = (R2 ; | 7 5 
4 AE 9F 0001C PUSHAB STRIN : $711. 35 
04 AE 9F QOOTF PUSHAB CURRENT_LEN : s 3 
D AF 9F 00022 PUSHAB ees FORMAT 3 s 3 
000000006 00 03 FB 00025 CALLS @ S$F : | 7 5 
62 6— AO 0002C ADDW2  CURRENT_LEN, (R2) : 5713, : § 
08 AE 6 £0 000¢F ADDL2 CURRENT"LEN, STRING _PTR+4 > 5714 | 3 
04 AE 62 3C 00033 MOVZWL (R2), ST é PTR : 5715. 34 
04 AE 00000200 8F 04 AE C3 90037 SUBL3 STRING_PTR, #512, STRING_PTR : | : 4 
12 62 Bi 00041 CMPW 33s (R2), #18 > $721) : § 
02 1A 00044 BGTRU 1$ : | a 
62 B4 00046 CLRW = (R2) : 5723. 3! 
0200 8F 62 81 00048 1$ CMPW 3s (R2), #512 : 5726 | 3 | 
05 1B 0004D BLEQU 2$ F | ; i 
62 0200 8F BO 0004F MOVW #512, (R2) : 5729 3 | 
04 00054 2% RET : 5733. 3 | 
ae | 
= | 
| 
— 1 
; i 


H 9 


SEPARATE Print Symbiont -- separation routines 19-3 Sep =13 4 AX-11 Bliss-32 V4.0-74 Page 159 

5001 GET_USER. NOTE= Insert a Note into the Page 14-Sep 4 98 3: 93 PRTSMB SREISEPARATS 63552 9° 37) 

; 4823 734 1 &sbttl ‘GET R_NOTE= Inser 

+ O88? 2 Be. GET_USER_NOTE= Insert a Note into the Page’ 

: 4825 57 $ 1 | Functional Description: 

3 rt § ef f : This routine gets a note as specified by the user for the frame. 

: 4828 25 9 1 ! Formal Parameters: 

; 4829 5740 1: - Address of the SCB 

$ rts) oh : STR_DESC - Desc of String to Return 

i832 ert6 1; RET_LEN Return length of Desc. 

; 483 5744 1! Implicit Inputs: 

> 4834 745 1! none 

; 4835 746 1: 

: 4836 5747 1: Implicit Outputs: 

; 4837 5748 1 none 

; 4838 5749 1! 

; 4839 5750 1 ! Returned Value: 

: 4840 5751 1 | non 

: 4841 efeg 1: : 

; 4842 5753 1°! Side Effects: 

3: 4843 5754 1! none 

> 4844 5755 1 i-- 

; 4845 ef28 1 ROUTINE GET_USER_NOTE ( 

; 4846 575 1 hia) : REF S$BBLOCK ' SCB 

> 4847 5758 1 STR_DESC : REF VECTORL2), i Output buffer desc 

: 4848 5759 1 RET_LEN : REF VECTOR C,WORDJ i Return Length (word) 

; 4849 5760 1 ) : NOVALUE = 

; 4850 5761 2 BEGIN 

; 4851 5762 2 BIND 

; 4852 P 5763 2 NOTE_FULL_FORMAT = SDESCRIPTOR ( 

: 4853 5764 2 TNOTE: !AF° ); ' = user note 

> 4854 5765 2 LITERAL 

; 4855 5766 2 K_MIN_NOTE_LEN = 6; 

; 4856 5767 2 LOCAL 

: 4857 5768 2 STATUS; 

; 4858 5769 2 

; 4859 P 5770 2 STATUS = $FAO ( were FULL_FORMAT, 

: 4860 P 5771 2 T_CENCOJ 

> 4861 P 5772 2 STR ESCLOI, | 

: 4862 P 5773 2 -SCB_SIZE_ 

> 4863 5774 2 -SCB-ADDR~ (NOTED Ss ! user note 

: 4864 5775 2 

; 4865 5776 2 IF .RET_LENCO) LEQ K MIN. NOTE_LEN ! print nothing... no note 

3: 4866 5777 2 THEN RET_LENCO) = 

3: 4867 5778 2 

: 4868 5779 2 

> 4869 5780 2 RETURN SS$_NORMAL; 

; 4870 5781 1 END; 

46 41 21 20 3A 45 54 4F 4E boas) P.AGG: .ASCII \NOTE: !AF\ ; 
Bs Aga -BLKB 2 

00000009 O2A f P.AGF: .LONG 9 3 
00000000" 02A ADDRESS P.AGG ; 


NOTE_FULL_FORMAT= P.AGF 


Be Se Se Se Oe Be Se Se Oe Se Oe Be we FHF Se Oe Se Se Se Oe SH Se Be Se SH Se SH Oe Se SH Se Bas 
PE PEG POG Phe Pek Pe Pk Pe ook Pe owe Me eek PE8 Me See Pee owe See Pes OOK PEs ee ee EL Ms et Pe es 


har Print 2 tg A 
v04-001 GET_USER_N 


iont == separation routines 
OTE= Insert a Note into the Page 12: 


0000 00000 GET_USER_NOTE: 


wo 
50 04 AC DO 00002 OVL 
00D8 CO bp 0006 PUSHL 
7E 00D4 CO 3C QOOOA MOVZWL 
08 AC DD OQO00F PUSHL 
OC AC DD pote PUSHL 
EO AF 9F 0001 PUSHAB 
00000000G 00 05 FB 00018 CALLS 
06 Oc BC B81 OOOIF CMPW 
03 1A 00023 BGTRU 
Oc BC B4 00025 CLRW 
04 00028 1$: RET 
; Routine Size: 41 bytes, Routine Base: CODE + 2A34 


“20-198 99:95:03 


AxX-11 BLi {eg -32 V4.0-74 
PRTSMB. SRC SEPARATE. B32;2 


Save 
a6 
13 
STR_ 
RET 
NOTE 
#5 


aReT_L 


aReT LEN 


Page 190 
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SEPARATE Print Symbiont -- separation routines 16-Sep-1984 23:03 AX-11 Bliss-32 V4.0-74 Page 161 
954-001 GET_RECEIPT. BOX - insert a ‘Received Box" into 1a-8ep-19 4 95:93:92 PRTSMB.SRCJSEPARATE .B32;2 . (38) 
; 487 278s 1 Zsbttl 'GET_RECEIPT_BOX = Insert a ‘Received Box'’ into the Page’ 
; 487 785 1 !4+ 
; 4874 2788 1 ! Functional Description: 
3 re 144 278? 1 } This routine gets a note as specified by the user for the frame. 
; 487 2789 1 ! Formal Parameters: 
; 4878 5788 1! - Address of the SCB 
; 4879 5789 1! STR_DESC - Desc or String to Return 
; 4880 5790 1! RET_LEN - Return Length of Desc. 
; 4881 5791 1! : 
; 488 2738 1! Implicit Inputs: 
; 488 228 1! none 
: 4884 794 1! 
; 4885 5795 1! Implicit Outputs: 
; 4886 5796 1! none 
: 4887 5797 1! 
; 4888 5798 1 ! Returned Value: 
; 4889 5799 1! non 
; 4890 5800 1! | 
; 4891 5801 1 ! Side Effects: 
; 4892 2808 . | none 
; 4893 5803 1 !-- 
3 4894 5804 1 ROUTINE GET_RECEIPT_BOX ( 
; 4895 5805 1 S¢cB : REF $BBLOCK ' §cB 
; 4896 5806 1 STR_DESC : REF VECTORC2), i Output buffer desc | 
; 4897 5807 1 RET_LEN : REF VECTOR C,WORD) ' Return length (word) 
; 4898 5808 1 ) : NOVALUE = 
: 4899 5809 2 BEGIN 
; 4900 5810 2 BIND 
; 4901 P 5811 2 NOTE132_FORMAT = S$DESCRIPTOR ( 
3; 4902 P 5812 2 ee *. 
3; 4903 P 5813 2 ‘3 ; .* 5 
P+ 4904 e 5814 2 ! Received: eeeeeeeeeeeeeeeeeeeeeee eee ! 4 e 
3; 4905 P 5815 2 1 77. 
4 4906 P 5816 2 di Date Ss eeccecccccese eeeeeeeeeeneee . } 
; 4907 P 5817 2 ie ing 
Py 4908 Pp 5818 2 . ! Operator: eeeeeeeeeeeeeeeeeeeeene eeee ! . . : | 
| 4909 P 5819 2 * Geosnwweneenosecoscosesocccoscce orem aan + | 
3 re dt oBSe § ) : VECTOR; ' = receipt box 
3: 4912 5822 2 CHSMOVE (.NOTE132_ FORMATCOJ, .NOTE132_FORMATC1], .STR_DESCCADDRI); 
> 4913 5823 2 RET_LENCO) = .NOTE132_FORMAT(O); 
: 4914 5824 2 
: 4915 5825 2 RETURN SS$_NORMAL; 
3; 4916 5826 1 END; 
20 2D 2D 2D 2D 2D 2D 2D 3p 2D 2D 20 sp 2D 2B 8g 420 PAG]: ASCII] \teoweeennennenncnwnnennnencncencceccess ~~ 3 
20 20 20 20 2D 2D $P 2D 2D 20 20 2D 2D 2D 2D O2A6C ; 

28 2D 20 2D 2D 2D 2D 2D 2D 2D O2A7B 3 
20 20 20 20 20 $0 $ 0 $0 $0 0 20 20 20 21 8 A85 ASCII \ "m8 
20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 A94 ; 

21 20 ¢ 20 ee ? ee 8 0 20 O2AA3 ; ; 
2E sf E 20 3A 64 65 6 69 6 6 6 0 1 8 AAD ASCII \! Received: eeeseeoeoceeeeeeeeeeeeeeeeeeeene '\ 3 
Aaa aanrertnete#e sf sf se se - ABC ; 

21 20 2€ 2€ 2E 2E 2E€ 2E 2E 2E O2ACB 3 
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seranate Print SUR FINE == separation routines 18-Sep-1984 O: 93: 93 AX-11 Bliss-32 ae ag eT Page 163 
v04-001 GET_RULER_FINE = Insert a fine HRULER" into the 14-Sep-1984 6 PRTSMB.SRCJSEPARATE.B32;2 (39) 
; 4918 827 1 Xsbttl ‘GET_RULER_FINE = Insert a fine ‘'RULER'’ into the Page' 
; 4919 828 1 !++ 
; 4920 829 1! Functional Description: 
: rp: 1 23 9 : This routine gets a fine ruler °1234567890' 
; 49 : 2836 1 ! Formal Parameters: 
> 4924 58 . 9 - Address of the SCB 
3; 4925 5834 1! STR_DESC - Desc of String to Return 
; 4926 5835 1! RET_LEN - Return Length of Desc. 
3: 4927 5836 1! 
; 4928 5837 1 ! Implicit Inputs: 
: 4929 ebe8 1! none 
; 4930 839 1! elf 
; 4931 5840 1 ! Implicit Outputs: 
; 493 5841 1! none 
3; 493 eneg 1! 
3 4934 5845 1 ! Returned Value: 
3; 4935 5844 1! non 
; 4936 5845 1! | 
3; 4937 5846 1 ! Side Effects: 
: 4938 5847 1! none 
; 4939 5848 1 !<- 
; 4940 5849 1 ROUTINE GET_RULER_FINE ( 
3 4941 5850 1 stp : REF S$BBLOCK ! $¢cB 
> 4942 5851 1 STR_DESC : REF VECTORL2), i Output buffer desc 
: 4943 5852 1 RET_LEN : REF VECTOR C,WORD) ! Return length (word) 
> 4944 5853 1 ) : NOVALUE = 
3 4945 5854 2 BEGIN 
> 4946 5855 2 BIND 
3: 4947 P 5856 2 VMS_FORMAT = SDESCRIPTOR ( 
3: 4948 P 5857 2 *1234567890' 
> 4949 5858 2 ); 
: 4950 5859 2 
; 4951 5860 2 $FAO ( VMS -f Ore 
3; 4952 P 5861 2 RET LENCO) 
> 4953 P 5862 2 STR ~DESCLOS 
: 4954 5863 2 HF 
3; 4955 5864 2 
3; 4956 5865 2 RETURN SS$_NORMAL; 
3; 4957 5866 1 END; 
30 39 38 #37 36 35 34 33 32 31 07888 P.AGK: oASCHt 31254567090) 5 
0000000A O2BCB P.AGJ: <LONG 10 Z 
00000000" O2BCC ADDRESS P.AGK 3 
VMS_FORMAT= P.AGJ 
0000 00000 GET_RULER_F INE: 
's -@ORD Save nothing : 5849 
08 AC DD 0000 PUSHL STR_DESC ; 5863 
0c AC 0D 0000 PUSHL RET_LEN : 
ED AF 9F 00008 PUSHAB VMS~FORMAT ; 
00000000G 00 03 FB 0000B CALLS #3, SYSS$FAO ; 


ut ines,, 
ULER'' into the 


biont -= separation ro 


m 
GET RULER FINE = Insert a fine 


Print S$ 


SEPARATE 
vO4~001 


RET 


04 00012 


19 bytes, Routine Base: CODE + 2BD0 


3; Routine Size: 


| 
} 
i 
| 
| 
| 
| 
| 


| SEranare Print Sym mbiont == separation routines cles 1984 te: $3 ‘93 AX-11 Oh iegeze V4.0-74 Page 165. 
v04-001 GET_RULER_COARSE = Insert a coarse FRULER" into 12: -Sep-1984 6 PRTSMB.SRCJSEPARATE .832;2 (40) 
; 4959 2867 1 Rsbttl "GET_RULER_COARSE = Insert a coarse ‘'RULER"’ into the Page’ 
; 4960 2 68 1 !+ 
; 4961 869 1! Funct tenet Description: 
; 496 5870 1! his routine gets a coarse ruler '1...2...3...' for the frame. 
; 496 5871 1! 
: 4964 2876 1 ! Formal Parameters: 
: 4965 5875 1! - Address of the SCB 
; 4966 5874 1! STR_DESC - Desc of String to Return 
3; 4967 5875 1! RET_LEN - Return Length of Desc. 
; 4968 5876 1! 
> 4969 5877 1! Implicit Inputs: 
3; 4970 5878 1! none 
; 4971 5879 1! 
3; 497 5880 1 ! Implicit Outputs: 
; 497 5881 1! none 
3 4974 ogee 1! 
3; 4975 5885 1 ! Returned Value: 
3; 4976 5884 1! non 
: 4977 ooe> ht 
: 4978 5886 1 ! Side Effects: 
3; 4979 5887 1! non 
: 4980 5888 1 !-- 
3; 4981 5889 1 ROUTINE GET_RULER_COARSE ( 
3 4982 5890 1 sts : REF $BBLOCK ' $cB 
> 4983 5891 1 STR_DESC : REF VECTORC2), i Output buffer desc 
> 4984 2898 1 RET_LEN : REF VECTOR C,WORDJ ! Return length (word) 
3; 4985 5893 1 ) =: NOVALUE = | 
: 4986 5894 2 BEGIN 
3; 4987 5895 2 BIND 
3; 4988 P 5896 2 VMS_FORMAT = S$DESCRIPTOR ( } 
3: 4989 P 5897 2 . Os 
> 4990 P 5898 2 . ee | 
3; 4991 P 5899 2 : ¥'s 
3 499 P 5900 2 . 4', 
3; 4992 P 5901 2 . os 
> 4994 P 2on6 2 . 6', 
3: 4995 P 5903 2 . af” 
3 4996 P 5904 2 : a | 
3; 4997 P 5905 2 , oe 
: 4998 P 5906 2 . 0° 
3: 4999 5907 $ ); 
; 5000 5908 
; 5001 5909 2 $FAO ( VMS_FORMAT, | 
; 500 P 5910 § we TEN O) 
: 500 P 5911 STR-DESCLOS 
: 5004 aal¢ 2 a 
; 5005 591 § 
: 5006 5914 RETURN SS$_NORMAL; 
: 5007 5915 1 ; 
31 20 20 20 20 20 20 20 20 20 O2BE3 P.AGM: .ASCII \ 1\ 3 
$6 $ 0 20 8 0 0 20 BED ASCII \ ¢y 3 
0 20 20 0 8 BF ASCII \ \ ; 
4 $3 0 20 20 $3 C01 ASCII \ 4\ 3 
§ 20 20 20 20 20 0 20 20 02C0B ASCII \ 5\ ; 
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; Routine Size: 


spranare Print symp iont == separation routines 1-40 1984 Os: 3:03 AX-11 Bliss-32 ett ath 1 Page 167 
v04-001 GET_FORM_SIZE = Determine the Size of Form Spec 12: ~Sep-19 4 2:26 PRTSMB.SRCJSEPARATE .B32;2 (41) 
; 5009 91 1 Zsbttl "GET_FORM_SIZE = Determine the Size of Form Specified’ 
$ 2040 2318 1 44 : 
; 5011 2318 1 ! Functional Description: 
: 2pi¢ 919 1! his routine determines the which standard form i 
; 501 5920 1! specified by interrogating the 1358 for 338. ond vy 
; 5014 5921 1! Standard forms sizes include: x66, 1 Bees, 15051 or 
: 5015 59 ¢ 1! 40xany_length. Otherwise tll, size is ' ‘non, 
; 5016 59 1! 
; 5017 5924 1 ! Formal Parameters: 
; 5018 5925 1! S¢CB - Address of the SCB 
; 5019 5926 1! 
: 2 0 5927 1! Implicit Inputs: 
; 5021 5926 1! none 
; 30 ¢ 5929 1! 
3; 502 5930 1 ! Implicit Outputs: 
3; 5024 5931 1! none 
: 5025 2338 1! 
; 5026 5933 1 ! Returned Value: 
: 5027 5934 1! non 
; 5028 ot: i © ee 
; 5029 5936 1°! Side Effects: 
; 5030 5937 1! non 
; 5031 5938 1 !<- 
; 5032 5939 1 ROUTINE GET_FORM_SIZE ( 
; 5033 5940 1 SCB : REF $BBLOCK 
; 5034 5941 1 ): NOVALUE = 
; 5035 ane§ 2 BEGIN 
; 5036 5943 2 
; 5037 5944 2 SCBCPSM$L_PAGE_WIDTH] = ,SCBCPSM$L_FORM_WIDTH); 
; 5038 5945 2 IF .SCBCPSMSL _PAGE _WIDTHI GTRU 2007 
; 5039 5946 2 THEN 
; 5040 5947 2 ’SCBCPSMSL _PAGE_WIDTH] = 200; 
: 5041 5948 2 
; 5042 5949 2 SCBCPSM$L_PAGE LENGTH) = .SCBCPSMS$L_FORM_LENGTH); 
3 2083 2930 3 IF .SCBCPSM$L_PAGE _LENGTH) GTRU 1007 
; 5045 5952 2 SCBCPSM$L_PAGE_LENGTH] = 100; 
; 5046 5953 2 
3; 5047 5954 2 WHILE .SCBCPSM$L_PAGE_LENGTH] LSSU 40 
; 5048 5955 2 DO 
: 5049 5956 2 SCBCPSM$L_PAGE_LENGTH] 
; 5050 5957 2 . SCBCPSM$L_PAGE “LENGTH] + .SCBCPSM$L_FORM_LENGTH]; 
; 5051 5958 2 
3; 5052 5959 1 END; 
0000 00000 GET_FORM_SIZE: : 
«WORD Save nothing ; 2959 
50 04 AC 00 00002 OVL SCB, RO > 5944. 
51 0200 C0 a 0006 MOVAB 216180} « R1 : | 
61 008C CO D ih MOVL 140(RO), (R1) : 
000000c8 = &F 61 D1 0001 CMPL (R11), #200 > 5945 
04 1B 00017 BLEQU. 1$ ; 
61 C8 8F 9A 00019 MOVZBL #200, (R1) : 5947 
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SEPARATE Print Symbiont == separation routines 1h-$ep19 4 i 98: $3 ‘93 AX-11 Bliss-32 VR sO 288 
v04-001 FILL_FRAME = Insert Information into this Frame 12: -Sep-1984 6 PRTSMB.SRCIJSEPARATE .B32;2 
; 2038 $36 ] ts Rsbttl "FILL_FRAME = Insert Information into this Frame of the Page' 
; 5056 306 1 "fenct tenet Description: 

; 5057 5963 1 | his procedure inserts a character into an array(frame) 
; 5058 5964 1! until no room left in the frame. 

; 5059 5965 1! 

; 5060 2308 1 ! Formal Parameters: 

; 5061 5967 1! $cB - Address of the S$ 

; 2006 5968 1! CHAR - Descriptor of string to Insert 
: 506 5969 1! FRAME _P - Address of first byte of Frame 
; 5064 5970 1! FRAME ~CENGTH = Length of Frame 

; 5065 5971 1! FRAME_WIDTH - Width of Frame 

: 5066 28'6 1! 

; 5067 5973 1°! Implicit Inputs: 

; 5068 5974 1! none 

; 5069 5975 1! 

; 5070 5976 1 ! Implicit Outputs: 

; 5071 5977 1! none 

3 ante 5978 1! 

; 507 5979 1 ! Returned Value: 

: 5074 5980 1! n 

; 5075 5981 1! 

; 5076 5982 1 ! Side Effects: 

; 5077 5983 1! non 

; 5078 5984 1 !<- 

; 5079 5985 1 ROUTINE FILL_FRAME ( 

; 5080 5986 1 $¢cB : REF $BBLOCK, 

: 5081 5987 1 CHAR, 

; 5082 5988 1 FRAME _PTR : REF PAGE_ARRAY, 

; 5083 5989 1 FRAME “WIDTH, 

; 5084 5990 1 FRAME “LENGTH 

; 5085 5991 1 : NOVALUE = 

; 5086 2398 2 BEGIN 

; 5087 5993 2 

; 5088 5994 2 LOCAL PTR : REF PAGE_ARRAY, 

; 5089 5995 2 LOC_FRAME_LENGTH, 

; 5090 5996 2 LOC ~ FRAME “WIDTH ; 

; 5091 5997 2 

; 5092 5998 § ! Check for dumb calls 

3; 5093 5999 i 

; 5094 6000 3 iF (.FRAME_LENGTH LEQ 0) OR (.FRAME_WIDTH LEQ 0) 

; 5095 6001 2 THEN 

; 5096 600 RETURN; 

; 5097 600 IF (. FRAME_LENGTH GTR TH tte PAGE_LENGTH]) OR 

; 5098 6004 -FRAME_WIDTH GTR .SCBL PSM$L_PAGE_QIDTHJ) 

; 5099 6005 2 THEN 

; 5100 6006 2 RETURN; 

3; 5101 6007 2 

; 5102 6008 ! Check page boundary conditions 

; 5103 6009 i 

; 5104 6010 LOC _FRAME_LENGTH = .FRAME_L 

3 3102 ete IF toe FRAME _LENGTH GTR “EOP PShSL _PAGE_LENGTH) 

3 44 14 ratte ; LOC_FRAME_LENGTH = .SCBCPSM$L_PAGE_LENGTH); ! stay in page bounds 
; 3109 6015 $4 LOC “(cone WIDTH = FRAME 

: 5110 6016 LOC_FRAME_WIDTH GTR  CBLPoRSL PAGE _WIDTH) 
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SEPARATE Print Symbiont == separation routines 16-Sep-1984 02:23:03 AX-11 Bliss-32 V4.0-74 P 70 5 

vo6-001 FILL. FRAME - Insert Information into this Frame 122860 384 95:93:98 PRTSMB.SRCJSEPARATE .B32;2 age 13) Vv 

: ae 6017 2 THEN : 
; 2418 oes LOC_FRAME_WIDTH = .SCBCPSM$L_PAGE_WIDTH]; ! stay in page bounds a 
: aiy8 6051 5 PTR = FRAME_PTREO,0, .SCBLPSMSL_PAGE WIDTH] 7 
Py = e oVee = _W H Py Ps 
; 5116 60 ; } 
s S17 60 . 
; 2118 ts 3 DECR_L_FROM .LOC_FRAME_LENGTH TO 1 DO : 
; 2159 ones CHSFILL( .CHAR, .LOC_FRAME_WIDTH,.PTR); : 

; 2156 ones ; PTR = .PTR + .SCBCPSMS$L_PAGE_WIDTHI; ! Address calc. is based ; 

3 Sie 6029 ! on Form Width ; 
; 5124 6030 2 END; z; 
; 5125 6031 1 END; . 
| 
O3FC 00000 FILL_FRAME: BS 

.WORD Save R2,R3,R4,R5,R6,R7,RB,R9 ; 5985 ; 

52 14 AC D0 00002 MOVL FRAME _LENGTH, R2 ; 6000) 3 
4C 15 00006 BLEQ 5$ 3 Zs 
10 AC 05 00008 TSTL FRAME _WIDTH 3 : 
47 15 00008 BLEQ 5$ : . 

50 04 AC 00 00000 MOVL SCB, RO ; 6003. 3 
51 O1F8 CO DO 00011 MOVL 504(RO), R1 $ 

51 52 D1 00016 CMPL R2, R1 : 3 
39 14 00019 BGTR 5$ 3 
0200 CO 10 AC 01 0001B CMPL FRAME _WIDTH, 512(RO) 3 6004 
31 14 00021 BGTR 5$ ; | 3 | 
56 52 00 On0¢? MOVL R2, LOC_FRAME_LENGTH : 6010) Ss 

51 56 D1 00026 CMPL LOC_FRAME_LENGTH, R1 ; 6011 | 3 
03 15 00029 BLEQ 1$ 3 ‘| 
56 51 DO 00028 MOVL R1, LOC_FRAME_LENGTH $ 6013 | 3. 
59 10 AC DO O002E 18 MOVL FRAME WIDTH, COC_FRAME_WIDTH ; 6015 | . 

58 0200 cO »bO 00036 MOVL 512(R0), ; 6016 | i 

58 59 01 808 CMPL LOC_FRAME_WIDTH, R8 : ; 
03 15 QO03A BLEQ es : 2 | 

59 58 DO 0003C MOVL R8, LOC_FRAME_WIDTH ; 6018 : 

57 0c AC DO OOO3F 28 MOVL FRAME _PTR, PTR ; 6021 : 
56 D6 00043 INCL L ; 6026. a 

OA 11 Bones BRB 4$ ; : 

59 08 Ac 6E 4 2c Spee 3$ MOVCS #0, (SP), CHAR, LOC_FRAME_WIDTH, (PTR) : 3 

; 3 

57 58 CO SOOcE ADDL2 = RB, : 6028 g 

3 56 F5 00051 4$ SOBGTR L, 3$ $6024 | : 

04 00054 5$ RET ; 6031) 


; Routine Size: 85 bytes, Routine Base: CODE + 2CA2 
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Check for dumb calls 

if (.FRAME_LENGTH LEQ 0) OR (.FRAME_WIDTH LEQ 0) OR 

(.FRAME-LENGTH GTR .SCBCPSM$L_PAGE_LENGTH]) OR 

(.FRAME_WIDTH GTR .SCBCPSM$L_PAGE_WIDTH)) 

RETURN; 

LOC_FRAME_LENGTH = .FRAME_LENGTH; 

LOC_FRAME_WIDTH = .FRAME_WIDTH; 

PTR = FRAME _PTRCO,0,.SC CPSM$L_PAGE_WIDTH)); 
GCADDR); 


TEMP_PTR = CHAR STRIN 
CHARS = CHSPTR(.TEMP_PTR); 


Print Symbiont == separation routines 1S-se -1984 23:03 AX-11 Bliss-32 V4.0-74 
SCROLL_FRAME = Insert Information into this Fra 14-Sep-19 4 93:93:98 LORTSMB SRE SEPARATE. 039; 2 
6036 } Rsbttl *"SCROLL_FRAME = Insert Information into this Frame of the Page’ 
6084 1! Functional Description: 
6035 1! is procedure inserts a string into an array(frame) repeatedly 
6038 : } until no room is left in the frame. 
6038 1 ! Formal Parameters: 
6039 1! - Address of the SCB 
6040 1! CHAR_STRING - Descriptor of ase ine to Insert 
6041 1! FRAME _PTR - Address of first byte of Frame 
6042 1! FRAME LENGTH - Length of Frame 
6045 1! FRAME _WIDTH - Width of Frame 
6044 1! 
6045 1 ! Implicit Inputs: 
6046 1! none 
6047 1! 
60468 1! Implicit Outputs: 
6049 1! none 
6050 1! 
6051 1 ! Returned Value: 
605 1! non 
wos 3 ft . 
6054 1 ! Side Effects: 
6055 1! non 
6056 1 !-- 
6057 1 ROUTINE SCROLL_FRAME ( 
6058 1 : REF $BBLOCK 
6059 1 CHAR_STRING : REF VECTORCC), 
6060 1 FRAME _ : REF PAGE_ARRAY, 
6061 1 FRAME _WIDTH P 
6062 1 FRAME _LENGTH 
6063 1 : NOVALUE = 
6064 2 BEGIN 
6065 2 
6066 2 LOCAL PTR : REF PAGE_ARRAY, 
6067 2 LOC_FRAME_LENGTH, 
6068 2 LOC_FRAME_WIDTH , 
6069 2 TEMP PTR 5 
6070 2 START_CNT : INITIAL (0), 
6071 2 CHARS ° 
607 § NUM_CHARS : INITIAL (0); 

; 

: T 


rar Print 


SCROLL. 

; 5184 6089 
; 5185 6090 
; 5186 6091 
; 5187 609 

: 5188 609 

; 5189 6094 
; 5190 6095 
3; 5191 6096 
$ 2136 6097 
3; 519 6098 
; 5194 6099 
; a1 6100 
; 5196 6101 
; 5197 9106 
; 5198 610 

; 5199 6104 
: 5200 6105 
: 5201 6106 
4 2506 6107 
: 520 6108 
3 5204 6109 
; 5205 6110 
; 5206 6111 
; 5207 6112 
; 5208 6113 
; 5209 6114 
; 5210 6115 
3 5211 6116 
: 5212 6117 
: 5213 6118 
; 5214 6119 
; 5215 6120 
: 5216 6121 
3; 5217 6122 


S 
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mbiont == separation routines 16-Sep- 3: AX-11 Bliss-3 4 
RAME = Insert Information into this Fra 14- =Sep- 198 98: $3 9 PRISMB SRe SERANA ify 63352 
wget Ny OM 0 TO (.LOC_FRAME_LENGTH=-1) DO 
PTR = ay te _PTRCO SCBCPSM$L_PAGE WIDTHI] ! Address calc. is based 
+ (.L7* .SCBCPSMSL_PAGE_QIDTHI); i on Form Width 


m 
4 
J 
e. 


Move the rest of the string into the beginning of the next frame 


if (. rap CHARS LEQ .CHAR_STRINGCSIZE]) 
D TC. CHAR _STRINGCSTZEJ~.NUM_ CHARS) LSS -LOC ei Cat | lil 


INGCADDR] + .NUM_CHARS; ! peye remainder of str. 
CSIZEJ- .NUM_CHARS, .TEMP_PTR, .PTR); 
STRINGCSIZE]~- .NUM CHARS? | 

RINGCS1IZ 
INGLADDR 


! incr by no. inserted 


TEMP = ~CHA STR 
LHSMOVE C. CHAR eTRI ING 
PTR = .PTR + T.CH AR_ 
T 
R 


START_CNT = .CHAR $ 


cm rt PTR = .CHAR_S 


N 
Z 
] = .NUM_CHARS; 


] 
i 
ZE 
1; 


INCR I — ~START_CNT TO .LOC_FRAME_WIDTH BY .CHAR_STRINGCSIZEJ DO 
Fc -CHAR_STRINGCSIZE] GEQ (.LOC_FRAME_WIDTH - .I) 
NUM_CHARS = (.LOC_FRAME_WIDTH = .1) 
NUM_CHARS = .CHAR_STRINGCSIZE]; 
CHSMOVE(.NUM_CHARS, .TEMP_PTR, .PTR); 
PTR = .PTR + .NUM_CHARS; 


END; 
END; 


OFFC 00000 seats het * 


Save Ree R3,R4,R5,R6,R7,R8,R9,R10,R11 
C2 #) 


START CNT 
NUM_ CRARS 
MOVL FRARE LENGTH, R1 


TSTL FRAME _WIDTH 
1$: BGTR 2$ 


2$: MOVL 


5E 


5 » RO 
O1F8 =6C 504<RO) 

5 

C 


, RO 
0200 WE WIDTH, 512(RO) 
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; Routine Size: 182 bytes, Routine Base: CODE + 2CF7 


, 
' SEPARATE Print Symbiont -- separation routines 1}. -Sep-1984 AX-11 Bliss-32 v4.0 Page 173 SE 
vive SCROLL > FRAME - inert Information into this Fra 14- ~3ep -1984 96: $3; 93 PRTSMB. SRCIJSEPARATE. ay 32 . (43) vO 

58 10 ac p0 00031 MOVL § FRAME_WIDTH, LOC_FRAME_WIDTH + 6084 | : 

04 AE o¢ AC DO 00035 MOVL RAME-PTR, + 6086 ; 

SA AC DO 0003A MOVL §CHAR_STRING, R10 + 6087 ; 

38 04 «AA D0 00 MOVL R10), TEMP_PTR : | : 

0 5B DO 0004 MOVL TEMP_PTR, C : 6088 | 3 

08 AE 04 AC DO 0004 MOVL  SCB,~8(SP) + 6093. ; 

5 01 CE OO04A MNEGL #1, L + 6109 | ; 

61 11 00040 BRB 11$ : | ; 

51 08 ag 00000200 8F C1 OO04F 5$ ADDL3 #512, 8(SP), R1 : 6093 ; 

50 5 61 ¢5 00058 MULL3 (R1), L, R : ; 

04 AE Oc BC40 9E 0005C MOVAB @FRAME PTRCROJ, PTR : : 

6A $f D1 0006¢ CMPL § NUM_CHARS, (R10) + 6097) ; 

22 14 0006 BGTR 6$ ~ : : 

56 6A 6E C3 00067 SUBL3  NUM_ CHARS , (R10), R6 + 6098. ; 

58 56 D1 00068 CMPL 6, LOC_FRAME_WIOTH : | : 

19 18 0006E a0 46$ : | ; 

5B 04 AA 6E C1 00070 ADDL3 NUM CHARS, 4(R10), TEMP_PTR + 6101) : 

56 6A 6— ¢3 00075 SUBL 3 M~CHARS, (R10), R6 + 6102 | F 

04 BE 68 56 28 00079 MOVC3 RO. “(TEMP’PTR), @PTR : F 

04 AE 56 CO 0007E ADDL2 PT : 6103" : 

59 56 DO 00082 MOVL 6, ST T > 6105 | : 

5B 04 A&A DO 00085 MOVL  4(R10), ERP PTR > 6106. ; 

56 59 DO 00089 6$ MOVL § START_C + 6117) ; 

1D 11 0008C BRB 10$ : ; 

50 58 56 C3 0008E 7$ SUBL3. 1, LOC_FRAME_WIDTH, RO + 6111) ; 

50 6A D1 0009¢ CMPL (R10), "RO : : 

05 19 0009 BLSS  8$ : F 

6E 50 pO 00097 MOVL § RO, NUM_CHARS ; 6113, ; 

03 11 OO09A BRB 9$ : F 

6E 6A DO 0009C 8s: MOVL (R10), NUM_CHARS + 6115) : 

04 BE 6B 6E 28 OOO09F 9S: MOVC3 NUM_CHARS, (TEMP_PTR), aPTR ; 6117) ; 

04 AE 6E CO O00A4 ADDL2 NUM7CHARS, PTR + 6119) ; 

56 6A CO O00A8 ADDL2 (R10), I : 6109 F 

58 56 D1 OOOAB 108: CMPL 1, LOC_FRAME_WIDTH : F 

DE 15 OOOAE BLEQ : ; 

9A 57 (c AE F2 000B0 118: AOBLSS LOC_FRAME_LENGTH, L, 5$ ; 6090 ; 

04 00085 RET > 6122 | : 

‘ 


J 10 


Returned Value: 
none 


Side Effects: 
Truncation is possible. 


SEPARATE Print Symbiont -- separation routines 16-Sep-1984 02:23:03 AX-11 Bliss-32 V4.0-74 P 74) 
vO4-001 MOVE_FRAME = Move Information into this Frame o 14-Sep-19 4 93:93:58 LPRTSMB. SRE SEPARATE. B49;2 aad St 
5 32 2 Rsbttl "MOVE_FRAME = Move Information into this Frame of the Page' 
2 1 1 i Functional Description: 
5 § 1 ' his procedure inserts a string(frame) into an array(frame). 
5 ? 1 Insertion continues until either no more string or no more room. 
5895 i Formal Parameters: 
5226 : $cB - Address of the SCB 
52e7 ' CHAR_ STRING - Descriptor of String to Insert 
5228 ! FRAME_PTR - Address of first byte of Frame 
2568 / FRAME _LENGTH - Length of Frame 
¢ 0 FRAME_WIDTH - Width of Frame 
2 i Implicit Inputs: | 
§ none 
2 i Implicit Outputs: | 
2 ' none 
2 ' | 
1 | 
i 
i 
i 
i 


ROUTINE MOVE_FRAME ( 


: REF $BBLOCK 

CHAR_STRING : REF VECTORLC), 

FRAME_PTR : REF PAGE _ARRAY, 

FRAME _WIDTH " ! Number of Columns 

FRAME LENGTH ! Number of Rows 

» 4 NOVALUE = 
BEGIN 
LOCAL PTR : REF PAGE_ARRAY, 

LOC_FRAME_LENGTH, 

LOC"FRAME_WIDTH , 

TR-PTR : 

CURR_SIZE ‘ 

NUM_CHARS; 


Check for dumb calls 
if (-FRAME_LENGTH LEQ 0) OR (.FRAME_WIDTH LEQ 0) 
RETURN; 
IF (.FRAME_LENGTH GTR .SCBCPSMSL_PAGE_LENGTH]) OR | 
(.FRAME-WIDTH GTR .SCBCPSM$L_PAGE_QIDTH) 
RETURN; 


: Check page boundary conditions 


LOC_FRAME_LENGTH = .FRAME_LENGTH; 
IF TLOC_FRAME_LENGTH GTR .SCBCPSMSL_PAGE_LENGTH] 
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v04-001 MOVE_FRA - 14- oben 198 98: §3:92 PRTSMB.SRCJSEPARATE.B 635;2 29° a) 
76 


ME = Move Information into this Frame o -1 


32 6180 EN 

; 2 ag aH LOC_FRAME_LENGTH = .SCBCPSMS$L_PAGE_LENGTHI; ! stay in page bounds 

; 5279 8188 LOC_FRAME_ WIDTH = .FRAME W 

; 2 4 ot If toc. FRAME _WIDTH GTR  SCALPSASL _PAGE_WIDTH) 

; 2 Bg 618g LOC_FRAME_WIDTH = .SCBCPSM$L_PAGE_WIDTH; ! stay in page bounds 

: eSB 6188 ! Get string info 

; 5285 6189 CURR _vizé = PY ee PB TRLO De seat Ej; 

; 5286 6190 = Pee scat PSMSL_PAGE_WIDTHJJ; 

3687 6191 2 STR_PTR = CRAR ~ETRINGLABDR R; 

; 5288 o136 

: 5289 619 ! Do a quick fill of the frame 

; 5290 6194 2 FILL_FRAME (.SCB, 

; 5291 6195 2 ZCHAR(3 h blanks 

: 329¢ 6196 2 FRAME PTREO, 0, .SCBLPSMEL PAGE. WIDTHIJ, | 
; 529 6197 2 -LOC_FRAME 

>; 5294 6198 2 -LOC ~ FRAME -TENGTHO ; 

; 5295 6199 2 

3; 5296 6200 $ DECRU L FROM .LOC_FRAME_LENGTH TO 1 DO 

; 5297 6201 BEGIN 

>; 5298 6202 3 IF .CURR_SIZE GEQ .LOC_FRAME 4 aay THEN 

; i444 6203 3 NUM_THARS = .LOC_FRAME_WIDT 

; 5300 6204 3 SE 
; 5301 6205 3 NUM_CHARS = .CURR_SIZE; 

; 5302 6206 3 

; 5303 6207 3 CHSMOVE(.NUM_CHARS, .STR_PTR, .PTR); 

3 5304 6208 3 

; 5305 6209 3 PTR = .PTR + .SCBCPSM$L_PAGE_WIDTH]; ! Address calc. is based 
; 5306 6210 3 i on Form Width 
; 5307 6211 3 STR_PTR = .STR_PTR + .LOC_FRAME_WIDTH; 
; 5308 6212 3 
; 5309 6213 3 IF ott ty WIDTH GTRU .CURR_SIZE THEN 

; 5310 6214 3 EXITLO 

: 5311 6215 3 ; ; 

; $312 6216 3 CURR_SIZE = sale Sih - .NUM_CHARS; ! Decrease string size 
3; 5313 6217 2 END; 

3; 5314 6218 1 END; 


OFFC 00000 MOVE_FRAME: | 
«WORD Save R2,R3,R4,R5,R6,R7,R8,R9,R10,R11 > 6149 | 


5E 04 C2 0000 SUBL2 #4, SP ; | 
51 14 AC 00 0000 MOVL § FRAME_LENGTH, R1 3 6167 | 
7C 15 00009 BLEQ : | 
10 AC 05 00008 TSTL FRAME _WIDTH ; 
77 15 0000€ BLEG cs ; | 
57 04 AC 00 00010 MOVL ; 6170 
50 O1F8 C7? DO 00014 MOVL se Birds, RO F | 
50 51 D1 00019 CMPL =e R11, RO ; | 
69 14 0001C BGTR 7$° ; 
0200 C7 10 AC D1 OOO1E CMPL § FRAME_WIDTH, 512(R7) : 6171 
61 14 00024 BGTR 7$ ; 


10 
SEPARATE Print Symbiont -=- separation routines 1b-Se -1984 7:23:03 AX-11 Bliss-32 V4.0-74 P 
|VO4"001 MOVE. FRAME - Move infornatien into this Frame o 1278 08- 1 3be 95:93:93 LPRTSMB SRE SEPARATE .B32;2 tha 
5 51 DO 000 MOVL 1, LOC_FRAME_LENGTH ; 
5 3¢ D! 00 cMPL LOC_FRARE LENGTH, RO : 
2g 38 86 OORE OWL, or rane Lencry 7 
0200 (7 5 D1 00035 CMPL OC_FRAME_WIDTH, -512(R7) : 
05 15 O0003A BLEQ $ 3 
58 0200 C7 dO 0003C¢ MOVL 12(R7), LOC_FRAME_WIDTH : 
50 08 AC DO 00041 28 MOVL § CHAR_STRING, ~RO : 
6E Oc ac pO 00045 MOVL FRAME_PTR, PT : 
SA 60 7D 00049 MOVG (RO), CURR_SIZE ; 
28 DD 9004¢ PUSHL LOC_FRAME_CENGTH : 
DD O004E PUSHL LOC"FRAME-WIDTH : 
0C AC Db 00050 PUSHL FRAME_PTR : 
20 DD 00053 PUSHL #32 : 
7 dd 00055 PUSHL R7 : 
FE99 so 05 FB 00057 CALLS #5, FILL_FRAME : 
56 52 pO 0005C¢ MOVL § LOC_FRAME_LENGTH, L : 
24 11 0005F BRB 65 ; 
58 5A D1 00061 3S: CMPL CURR_SIZE, LOC_FRAME_WIDTH : 
05 19 00064 BLSS : 
59 58 DO 00066 MOVL LOC_FRAME_WIDTH, NUM_CHARS : 
03 11 00069 BRB 5$ : 
59 5A DO 00068 4$: MOVL CURR_SIZE, NUM_CHARS : 
00 BE 68 59 28 0006 5$: MOVC3 NUM_CHARS, (STR_PTR), @PTR : 
6E 0200 C7 €0 0007 ADDL2 512TR7), PTR : 
5B 58 CO 00078 ADDL2 LOC_FRAME_WIDTH, STR_PTR : 
5A 58 D1 00078 CMPL LOC"FRAME_WIDTH, CURR_SIZE 3 
07 1A 0007E BGTRU : 
SA 59 C2 00080 SUBL2 NUM_CHARS, CURR_SIZE : 
56 D7 00083 tr «ik : 
DA 12 00085 6$: BNEQ 3$ : 
04 00087 7$: RET ; 


; Routine Size: 136 bytes, Routine Base: CODE + 2DAD 
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RAME = Insert Information into this Fra 14-Sep-19 4 95:93:98 PRTSMB. SRCISEPARATE .B3 i2 


Rsbttl "INSERT_FRAME = Insert Information into this Frame of the Page’ 


! Functional Description: 
: This procedure inserts a string into an array(frame). 


Insertion continues until either no more string or no more room 
oe hes dag characters are used to correctly parse the string 
prior to insertion. 


Formal Parameters: 
- Address of the SCB 
ee STRING - Descriptor of String to Insert 


AME_PTR - Address of first byte of Frame 
FRAME LENGTH = Length of Frame 
FRAME WIDTH - Width of Frame 


! Implicit Outputs: 
none 
Returned Value: 
non 


Side Effects: 


! 

i 

i 

i 

i 

i 

i 

' 

i 

i 

i 

: Implicit Inputs: 
non 
i 

' 

i 

i 

i 

Truncation is possible. 


ROUTINE INSERT_FRAME ( 


: REF $BBLOCK 
CHAR_STRING : REF VECTORCC), 
FRAME_PTR : REF PAGE ARRAY, 
FRAME _WIDTH ° : Number of Columns 
FRAME LENGTH ! Number of Rows 
» 3: NOVALUE = 
BEGIN . : 
BUILTIN AP; ! just in case trucation occurred ... don't delimit 
LITERAL 
LEADING = 0, 
TRAILING = 1; 
LOCAL PTR : REF PAGE_ARRAY, 


LOC_FRAME_LENGTH, 
LOCTFRAME-WIDTH . 


STR_PT ‘ 
CURR_SIZE ’ 
NUM~ CHARS; , 
Check for dumb cails 
iv C.F RARE LENSE LEQ 0) OR (.FRAME_WIDTH LEQ 0) 


PSM$L_PAGE LENGTH]) OR 


RETURN; 
IF (.FRAME_LENGTH GTR .SCBL 
CPSMS$L_PAGE_QIDTHI) 


(SFRAME-WIDTH GTR .SCB 
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50-001 INSERT FRAME - Insert Information into this Fra 14-Sep sare r 98: $3; % PRTSMB. SRCIS SSEPARATE .08 :2 rae 8 
; 5373 6 16 EN 
moon 
; 3 6 : 4 Check page boundary conditions 
: 5378 a Hi LOC_FRAME_LENGTH = .FRAME_L ENGTH 

; 2 8 6 8¢ IF iLoc. FRAME_LENGTH GTR “SEB PSHISL _PAGE_LENGTH] 
; 3381 6 84 LOC_FRAME_LENGTH = .SCBCPSM$L_PAGE_LENGTH); ! stay in page bounds 
: 238g 6286 2 LOC_FRAME_WIDTH = .FRAME | 
: 2380 ° rf IF toc. FRAME_WIDTH GTR Carp easL PAGE _WIDTH) 
; tr] e394 LOC_FRAME_WIDTH = .SCBCPSMS$L_PAGE_WIDTH); ! stay in page bounds 
: 5388 $534 ! Get string info 
: 5389 6292 CURR _SIZE = .CHAR =piniuegst 12E); 
: 5390 629 = FRAME~PTR SCBLPSMSL_PAGE_WIDTH]); 
$ 2391 6294 STR PTR = .CHAR “STRINGEAD DDR); 
ERE BG St pace ist ot oe tram 
: 5395 6298 $ CHAR (32 fill with blanks 
> 5396 6299 2 FRAME aehto, 0, .SCBLPSMSL. PAGE _WIDTHJJ, 
3; 5397 6300 2 -LOC_FRAME WIDTH 
; 3398 6301 ‘ .LOC-FRAME LENGTH); 
; 3400 6308 : DECR L FROM .LOC_FRAME_LENGTH TO 1 DO | 
: 5402 6305 3 IF - CURR SIZE GEQ .LOC_FRAME WIDTH THEN | 
: acne oa08 : “ UM_THARS = DELIMIT_STRING(.STR_PTR,%CHAR(32),.LOC_FRAME_WIDTH) 
: 5407 6310 3 pIscane. (LEADING, %C' ai STR. ‘pth .NUM_CHARS, NUM_CHARS, STR_PTR); 
; 3408 6311 3 CHSMOVE (.NUM_CHARS, .STR_PTR,~.PTR): 
: 5410 6313 3 PTR = .PTR + .SCBCPSMSL_PAGE_WIDTH); ! Address calc. is based | 
3 5411 6314 3 i on Form Width 
; 412 6315 3 STR_PTR = .STR_PTR + .NUM_CHARS; 
3 541 6316 3 
3 268 6317 IF -LOC FRAME. WIDTH GEQ .CURR_SIZE THEN 
> 541 6319 | 
3 2419 $399 gue SIZE = .CURR_SIZE = .NUM_CHARS; ! Decrease string size 
7 
: 5420 $336 IF .STR_PTR LSS (.CHAR_STRINGCADDR] + .CHAR_STRINGCSIZEJ) 

: 5421 6324 § THEN truncation occurred 
: 5422 6325 CALLG (.AP, hove FRAME); ! dont delimit..just move str. 

3; 5423 6326 1 END; 


OFFC 00000 INSERT_FRAME : 
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INSERT_FRAME = Insert Information into this Fra 14-Sep-1 PRTSMB.SRCJSEPARATE .832;2 (45). 
57 046 A? 67 (C1 44 11$: ADDL3 HG 4(R7), R7 ; 6323. 
57 6f D1 008 CMPL STR_PTR, R7 : | 
18 OOOBA 123" : 
FEB? CF 6C FA QOOBC CALLG (AP), MOVE_FRAME 3; 632 
04 000C1 12$: RET 3 632 


; Routine Size: 194 bytes, Routine Base: CODE + 2E35 
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CENTER_FRAME = Insert String Information into t 12-808 - 1 3be 93:93:93 LPRTSMB SRE SEPARATE .832;2 ° (46) 
; : ° } Rsbttl "CENTER_FRAME = Insert String Information into the Center of this Frame’ 
3: 5427 6329 1 ! Functional Description: 
> 54 6330 1! S procedure inserts a string into the cneter of an array(frame). 
; 5429 yt TS Insertion continues until either no more string or no more room 
> 3430 6 § 1} The idea is to center the string within the frame. 
>; 5431 63335 1! 1) If the oor tng is shorter than the entire frame then 
: 5432 6334 1! center the string in the frame. 
: 5433 6335 1! 2) If the string is longer than the entire frame then 
: 5434 6336 1! insert as much of the string as possible. 
: 5435 6337 1! ) Use an assumed pad of blanks for beginning and end of string. 
; 5436 6338 1! 
; 5437 6339 1! 
; 5438 6340 1 ! Formal Parameters: 
> 5439 6341 1! - Address of the SCB 
; 5440 og 1! CHAR_STRING - Descriptor of Str ine to Insert 
3; 5441 6343 1! FRAME_PTR - Address of first byte of Frame 
; 5442 6344 1! FRAME _LENGTH - Length of Frame 
3; 5443 6345 1! FRAME _WIDTH - Width of Frame 
: 5444 6346 1! 
: 5445 6347 1°! Implicit Inputs: 
; 5446 6348 1! none 
3; 5447 6349 1! 
: 5448 6350 1 ! Implicit Outputs: 
3; 5449 6351 1! none 
; 5450 Gi5e 7 3 
; 5451 6353 1 ! Returned Value: 
; 5452 6354 1! non 
; 5453 6555 77 | 
; 5454 6256 1 ! Side Effects: ; : 
; 5455 6357 1! Truncation is possible. 
; 5456 6358 1! 
3; 5457 6359 1 !-- 
>; 5458 6360 1 ROUTINE CENTER_FRAME ( 
; 5459 6361 1 SCB : REF S$BBLOCK 
: 5460 6362 1 CHAR STRING : REF VECTORCC), | 
; 5461 6363 1 FRAME_PTR : REF PAGE_ARRAY, 
: 5462 6364 1 FRAME _WIDTH ‘ ! Number of Columns 
; 5463 6365 1 FRAME _LENGTH ! Number of Rows 
>; 5464 6366 1 o...4 NOVALUE = 
3 5465 6367 2 BEGIN : ‘ : 
; 5466 6368 2 LITERAL K_MAX_BUFFER_SIZE = 512, ! maximum possible buffer size 
3 et $369 2 K_PAD_LEN = 2; ! Length to pad the string 
: 5469 6371 : LOCAL PTR : REF PAGE_ARRAY, ! points to col 0, variable row 
: 5470 osi¢ 2 LOC_FRAME_LENGTH, ' local count of frame_length 
3; 5471 63735 2 LOC_FRAME_WIDTH , ' Local count of frame_width 
; 5472 6374 § PAD_CHAR ‘ ! pad character is assumed a space 
3 5473 6375 PTR_OFFSET : SIGNED, ! pos/neg offset to origin 
; 5474 6376 2 TR_PT ! points to str position in frame 
> 5475 6377 2 STR SIZE . ! num char left in string : 
3; 5476 6378 2 BUFFER : VECTOR f3i2-byte}. ! variable buff for pad and string 
; ree rt t84 § STR_DESC : VECTOR (2); ! desc of string 
: rth on ; Check for dumb calls. Frame dimensions must be writable 
; 5481 $385 IF (.FRAME_LENGTH LEQ 0) OR (.FRAME_WIDTH LEQ 0) 
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v04-001 CENTER_FRAME = Insert String Information into t 14-Sep-1984 22:52:26 PRTSMB.SRCJSEPARATE .B32;2 (46) 

3 ores 6384 : 
; 548 6385 RETURN; ; 
: 5484 6386 2 IF (.FRAME_LENGTH GTR , SCBLPSHSL PAGE_LENGTH]) OR ; 
> 5485 6387 (.FRAME_WIDTH GTR .SCBCPSM$SL_PAGE_QIDTHI) : 
; 5486 6388 HEN 3 
: 5487 $352 RETURN; 3 
>; 5488 6390 ! String must not be zero !! : 
; 5489 6391 ' : 
; 5490 $396 IF .CHAR_STRINGCSIZE] EQL 0 THEN RETURN SS$_NORMAL; 

> 5491 6393 2 

3; 549 6394 2 ! Check page boundary conditions 

; 549 oa22 ! 

3 5494 6396 LOC_FRAME LENGTH = .FRAME_LENGTH; 
}; 5495 6397 IF SLOC_FRAME_LENGTH GTR <SCB PSM$L_PAGE_LENGTH] 

: 5496 6398 2 THEN 

3 reads tee § LOC_FRAME_LENGTH = .SCBCPSM$L_PAGE_LENGTHI; ! stay in page bounds 

: 5499 6401 2 LOC_FRAME_WIDTH = .FRAME_WIDTH; 

; 5500 att 2 IF [LOC_FRAME_WIDTH GTR .SCBCPSMSL_PAGE_WIDTH] 

; 5501 6405 2 THEN 

; 3208 orb $ LOC_FRAME_WIDTH = .SCBCPSMS$L_PAGE_WIDTHI; ! stay in page bounds 

3 g20e oh 08 § Get string into padding buffer if enough room 

; 5506 6408 2 STR_DESCCSIZEJ = ZALLOCATION (BUFFER); ! Length of string and pad chars 

; 5507 6409 2 STR_DESCCADDR) = BUFFER; ! ptr into pad&string buffer 

; 5508 6410 2 PADICHAR = XCHAR(32,32); 

: 3309 6411 : PTR= FRAME_PTRLO,0,.SCBLPSMSL_PAGE_WIDTHJ]; ' init 

; 5511 6413 2 ! Pad the string if there is oneuse room 

> 5512 6414 3 IF (.CHAR_STRINGCSIZE) + (2 * K_PAD_LEN)) 

; 5513 6415 ; LEQ 

: 5514 6416 (.LOC_FRAME_WIDTH * .LOC_FRAME_LENGTH) 

; 5515 6417 2 THEN 

; 5516 6418 3 BEGIN é 
3; 5517 6419 3 ! Set the size to correct value 

; 5518 6420 3 ! 

3; 5519 6421 3 IF .CHAR_STRINGCSIZE] LEQ (K_MAX_BUFFER_SIZE-2*(K_PAD_LEN)) THEN 

; 5520 6422 4 STR_DESCESIZE) = .CHAR_STRINGCSIZEJ + ( 2 * (R_PAD_LEN)) 

: 5521 6423 3 SE 

: 5522 6424 3 STR_DESC(SIZE] = K_MAX_BUFFER_SIZE; 

: 5523 6425 3 

: 5524 6426 3 ! Pad the Bicing using the local buffer 

> 5525 6427 3 CHSCOPY (K_PAD_LEN, PAD_CHAR, .CHAR_STRINGCSIZE], .CHAR_STRINGLADDR), 

> 5526 6428 3 K~PAD"LEN, PAD-CHAR, .PAD_CHAR, .STR_DESCLSIZET, 

: 5527 6429 .STR_BESCEADDRI) ; 

: 5528 6430 3 END 

: 5529 643 ELSE ' copy into local buffer 

; 5530 643 BEGIN 

; 5531 643 CHSMOVE(.CHAR_STRINGCSIZE], .CHAR_STRINGCADDR], .STR_DESCCADDR)); 

; 333¢ 6434 3 STR_DESCCSIZEJ = .CHAR_STRINGCSIZE); 

3 335 6435 2 END; 

3; 5534 6436 t 

; 5535 6437 !' Cale offset to pointer us ing new padded length 

; 5536 6438 IF ( .LOC_FRAME_WIDTH * .LOC_FRAME_LENGTH) GIR (.STR_DESCCSIZEJ) 

3; 5537 6439 2 THEN 

; 5538 6440 4 PTR_OFFSET = ((€ .LOC_FRAME_WIDTH * .LOC_FRAME_LENGTH) 
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wo4-0 001 CENTER FRAME - Insert String Information into t 12: 73e p71 384 1 98: $3: 3 PRTSMB SRE ISEPARATS 04552 9° 46) 
; 5539 644 - (,STR_DESCCSIZE]))/2 3 
: $346 644 ELSE “eg 3 
: 5541 644 PTR_OFFSET = 0; ; 
; e206 6444 : 
; 554 6445 ' Check for negative offset 5 
3; 5544 6446 IF .PTR_OFFSET LSS 0 3 
; 5545 6447 THEN ; 
: 2208 ork PTR_OFFSET = 0; ; 
; 5548 6450 ! Set pointer to buffer : 
; 5549 6451 STR_PTR = .PTR + .PTR OF FSET; : 
; 2229 ores STR_SIZE = .STR _DESCCSIZE); 3 
; 2226 6454 DECRU L_ FROM .LOC_FRAME_LENGTH TO 1 DO : 
; 555 6455 BEGIN : 
3; 5554 6456 3 3 
3 3222 ot 4 ; LOCAL NUM_CHARS; ! number of chars to move to the frame 3 
; 5557 6459 3 IF .PTR OFFSET GEQ .LOC_FRAME_WIDTH THEN é 
; 5558 6460 4 BEGIN F 
; 5559 6461 4 PTR = .PTR + .SCBCPSMS$L_PAGE WIDTH]; go to next row of frame : 
: 5560 bb6e 4 4. _OFFSET = .PTR_OFFSET = .COC_FRAME “wipin’ ! adjust offset to column 3 
; 5561 64635 4 END 3 
: 5562 6464 4 ELSE BEGIN 3 
: 5563 6465 4 5 
; 5564 6466 4 IF pe SIZE GEQ (.LOC_FRAME_WIDTH -PTR_OFFSET) THEN $ 
; 5565 6467 4 M~CHARS = .LOC_FRAME WIDTH - “PTR _OFFSET 3 
: 5566 6468 4 ! check for overflow of frame width : 
3 g207 one ? NUM_CHARS = .STR_SIZE; ! = insert which ever is less 3 
; 5569 6471 4 ee a he NUM_CHARS, .STR_DESCCADDRI, «STR_ PTR); 5 
: 5570 6472 4 STR = ak + .SCBLPSASL _PAGE_WIDTHI; ! “address calc. is bes e on ; 
; 5571 6473 4 BTR RSIR _PTR i Frame ptr£0,0] & Form Width : 
s S572 6474 4&4 3 
3; 5573 6475 4 pm penctaend = .STR_DESCCADDR] + .NUM_CHARS; P 
3; 5574 6476 4 3 
; 5575 6477 4 IF .LOC_FRAME_WIDTH GTRU .STR_SIZE ! Already inserted it all : 
3; 5576 6478 4 : 
s 5577 6479 4& EXITLOOP; ; 
; 5578 6480 4 § 
; 5579 6481 4 STR_SIZE = .STR_SIZE = .NUM_CHARS; ! Decrease string size ; 
; 5580 6482 4 : 
; 5561 64835 4 ! reset the offset to start column one - 
; 382 6484 4 PTR_OFFSET = 0; : 
; 558 6485 4 3 
; 5584 6486 3 END; 3 
3; 5585 6487 2 END; 3 
3; 5586 6488 1 END; : 
OFFC 00000 CENTER_FRAME: F 
WORD Saye Re Re R3,R4,R5,R6,R7,R8,R9,R10,R11 ; 6360 § 
5 Fore CE 9E& 0000 MOVAB 3 : 


AC D0 0000 MOVL FRAME heeft, R2 ; 6383) 
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B 


t 
15 0000 BLEQ 1$ 
D5 0000D TSTL § FRAME_WIDTH 
14 00010 1$ BGTR 2$ 
04 0001 RET 
DO 00013 2$ MOVL SCB, RO 
D0 9901 MOVL 504(R0), R1 
D1 0001C CMPL = 2, R1 
14 OO001F BGTR 3$ 
D1 00021 CMPL  FRAME_WIDTH, 512(RO) 
15 00027 3$ BLEQ 4$ 
04 00029 RET 
bg 900 A 4$ MOVL § @CHAR_STRING, R10 
12 0002E BNEQ 5$ 
04 00030 RET 
DO 00031 5$ MOVL R2, LOC_FRAME_LENGTH 
Di 00034 CMPL LOC_FRAME_LENGTH, R1 
15 00037 BLEQ 6$ 
DO 00039 MOVL 1, LOC_FRAME_LENGTH 
DO 0003C 6$: MOVL FRAME WIDTH, COC_FRAME_WIDTH 
9E 00040 MOVAB 512(R0), 4(SP) 
D1 00046 CMPL LOC_FRAME_WIDTH, a4(SP) 
15 0004A BLEQ 7$ 
p0 0004¢ MOVL a4(SP), LOC_FRAME_WIDTH 
C 00050 7$: MOVZWL #512 DESC 
9E 00056 MOVAB BUFFER, STR_DESC+4 
3C 0005B MOVZWL #8224, PAD_THAR 
DO 00061 OVL FRAME , PTR 
DO 00066 MOVL CHAR_STRING, R8 
9E O006A MOVAB 4(R10), 
C5 0006E MULL3 LOC_FRAME_LENGTH, LOC_FRAME_WIDTH, (SP) 
D1 00072 CMPL RO, ~(SP) 
14 00075 BGTR 1 
dD? 00077 CMPL R10, #508 
14 0007E BGTR 8 
DO 00080 MOVL RO, STR_DESC 
11 00084 BRB 
3C 00086 8$: MOVZWL #512, STR_DESC 
DO 0008C 9$: MOVL STR_DESC,~R11 
DO 00090 MOVL.  STRIDESC4+4, R9 
2c 9009% MOVCS #2,~PAD_CHAR, PAD_CHAR, R11, (R9) 
18 0009C¢ BGEQ 118 
CO 0009E ADDL a2. RO 
C2 OOOAl SUBL2 #2, R11 
2c BO0A4 MOVCS R10, a4(R8), PAD_CHAR, R11, (R9) 
18 OOOAC BGEQ $ 
CO OOOAE ADDL2 R10, RO 
C2 00081 SUBL2 R10. R11 
2c 00084 MOVCS #2, PAD_CHAR, PAD_CHAR, R11, (R9) 
11 000BC BRB 11$ 
28 OOOBE 10$:  MOVC3 R10, a4(R8), aSTR_DESC+4 
D0 b00¢4 MOVL R10. STR_DESC 
D1 000C8 11$:  cCMPL (SPS, STR_DESC 
13 000CC BLEQ 12$ 
C3 OOOCE SUBL3 STR_DESC, (SP), RO 
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SA 50 C7 9003 DIVL3 " RO, PTR_OFFSET : : 
11 000D BRB 13$ + 6440. ; 
A 04 00009 198: CLRL PTR_OFFSET + 6443. ; 
02 18 000DB 13S: BGEO 14$ + 6446. : 
SA 04 90000 CLRL PTR_OFFSET + 6448 ; 

5B SA 08 AE C1 OOODF 14$: ADDL3 PTR> PTR_OFFSET, STR_PTR + 6451. 

59 10 AE 00 000E4 MOVL  STR_DESC> STR_SIZE + 6452. 

3F 11 OOOES BRB 20$~ + 6454. 

57 5A D1 OOOEA 158: CMPL PTR_OFFSET, LOC_FRAME_WIDTH + 6459. 

0A 19 OQ00ED BLSS 16$7 : 

08 AE 04 BE CO OOOEF ADDL a4 (SP) > 6461. 

SA 57 C2 OOF SUBL LOC SFRAME WIDTH, PTR_OFFSET + 6462. 

gE 11 000F7 BRB 19$7 + 6459. 

50 57 A C3 000F9 16$ SUBL3. PTR_OFFSET, LOC_FRAME_WIDTH, RO + 6466. 

50 59 D1 000FD CMPL STRISIZE, RO : 

05 19 00100 BLSS 17$7 ; 

58 50 pO 00102 MOVL RO, NUM_CHARS + 6467. 

03 11 00105 BRB 18$ : | 

58 59 DO 00107 17$: MOVL STR_SIZE, NUM_ CHARS + 6469 

6B 14 BE 58 28 0010A 18$: MOVC3 NUM~CHARS, aSTR DESC+4, (STR_PTR) + 6471. 

5B 08 AE 04 BE C1 0010F ADDL3 a4(SP), PTR, STR_P + 6472) 

08 AE 5B DO 00115 MOVL TR_PTR, P : 6475, 

14 AE 58 CO 00119 ADDL2 NUM~ CHARS, STR_DESC+4 6475 | 

59 57 D1 0011D CMPL LOC"FRAME_WIDTA, STR_SIZE > 6477 

0B 1A 00120 BGTRU 21$7 : 

59 58 C2 00122 SUBL2 NUM_CHARS, STR_SIZE + 6481) 

5A D4 00125 CLRL BTRE “OFFSET > 6484 

56 D7 00127 198: DECL L + 6454. 

56 D5 00129 208: TSTL L : 
BD 12 00128 BNEQ 15$ ; 
04 0012D 21$: RET ; 


; Routine Size: 302 bytes, Routine Base: CODE + 2EF7 
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; 5588 6489 1 %sbttl "MERGE_FRAME = Merge Information in this Frame of the Page’ 
3 e268 6490 1 I++ 

; 5590 6491 1 ! Functional Description: 

; 5591 6492 1! This procedure merges rows of non-blank strings into an array(frame). 
3 2238 6495 1! Mer a continues until either no more strings or no more frame. The 
; 559 6494 1! contents of the frame are merged to the base of the frame. Any row 
; 5594 6495 1! with data present is considered impure and is merged. 

>; 5595 6496 1! 

; 5596 6497 1 ! Formal Parameters: 

; 3597 6498 1! - Address of the SCB 

; 5598 6499 1! CHAR_STRING - Descriptor of Sir see to Insert 

; 5599 6500 1! FRAME _PTR - Address of first byte of Frame 

; 3600 6501 1! FRAME _LENGTH - Length of Frame 

; 5601 bate 1 ! FRAME _WIDTH - Width of Frame 

; 5602 6503 1! 

; 5603 6504 1 ! Implicit Inputs: 

; 5604 6505 1! none 

; 5605 6506 1! ; 

: 5606 6507 1 ! Implicit Outputs: 

; 5607 6508 1! none 

; 5608 6509 1! 

; 5609 6510 1 ! Returned Value: 

; 5610 6511 1! n 

: 5611 Veecee 

; 5612 6513 1 ! Side Effects: i ; 

; 5613 6514 1! Truncation is possible. 

; 5614 6515 1! 

3; 5615 6516 1 !-- 

; 5616 6517 1 ROUTINE MERGE_FRAME ( 

: 5617 6518 1 : REF $BBLOCK 

: 5618 6519 1 CHAR_STRING : REF VECTORCC), 

; 5619 6520 1 FRAME_PTR : REF PAGE_ARRAY, 

; 5620 6521 1 FRAME _WIDTH : : Number of Columns 

; 5621 6522 1 FRAME_LENGTH . ! Number of Rows 

; 5622 6523 1 RET_LEN : REF VECTORC word) 

; 5623 6524 1 : NOVALUE = 

: 5624 6525 2 BEGIN 

: 5625 6526 2 

3; 5626 6527 2 LITERAL K_MAX_SIZE = 256; 

; 5627 6528 2 

; 5628 6529 2 LOCAL 

3; 5629 6530 2 CLR_STR VECTOR $1 

; 5630 6531 2 SRCE_STR VECTORC2 

: 5631 es3¢ : BUFFER VECTORE 256 byte], 

; 5632 653 CURRENT_PTR REF PAGE_ARRAY, 

: 5633 6534 2 CURRENT _LEN ° 

3: 5634 6535 2 DEST_OFFSET ° 

3; 5635 6536 SOURTE_OF FSET : 

: 5636 6537 

3; 5637 6538 ! setup clr str 

; 5638 6539 : ; 

3; 5639 6540 CLR_STRCADDR] = .CHAR_STRINGCADDR); 

; 5640 6541 CLR-STRCSIZEJ = .FRAME WIDTH; 

; 5641 $246 CHSFILL ( 2C' *, .FRAME_WIDTH, .CLR_STRCADDR)); 

; 2066 654 ! setup source_str 

3: 564 6544 : 

3 5644 6545 SRCE_STRCSIZE] = ZALLOCATION(BUFFER); 
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v04-001 MERGE FRAME = Merge Information in this Frame o 14-Sep-1984 22:52:26 PRTSMB.SRCJSEPARATE .B32; 2 (47) 
>: 5645 $066 SRCE_STRCADDR] = BUFFER; 
; 5646 654 
3 Sats $268 setup current point and offsets into frame 
; 2088 e220 CURRENT_PTR = FRAME_PTRCO,0, . SCBCPSMSL_PAGE_WIDTHJ]; 
; 5651 0226 SOURCE OFFSET = FRAME _LENGTH-1; ' start at frame boundaries 
5 2626 $227 DEST OFFSET = FRAME _LENGTH=1; : 
; 5654 6555 wag I FROM (.FRAME_LENGTH=1) TO 0 
; 5655 6556 
; 5656 6557 
; 5657 6558 sit NDEST _PTR ( .SCB 
: 5658 6559 3 CLR_STRCOI, 
; 5659 6560 3 CURRENT_PTRCO,0,.SCBCPSM$L_PAGE_WIDTHJ] 
; 5660 6561 3 -FRAME_QIDTH, 
; 5661 $206 3 -FRAME_LENGTH, 
3 5662 656 ; DEST_OFFSET); 
: 5663 6564 
3; 5664 6565 3 FIND_SOURCE_PTR ( .SCB, 
; 5665 6566 3 SRCE_STRCO) 
: 5666 6567 3 CURRENT _PTRCO,0,.SCBLPSMSL_PAGE_WIDTHJ) 
: 5667 6568 3 «FRAME _WIDTH, 
: 5668 6569 3 .DEST_OFFSET, 
: 5669 6570 3 SOURCE_OFFSET); 
; 5670 6571 3 
; 5671 6572 3 ! Exit loop when no source string 
: 5672 6573 3! 
: 5673 6574 3 IF .SRCE_STRCSIZE) EQL 0 
3; 5674 6575 3 THEN 
3; 5675 6576 4 BEGIN 
3 5676 6577 4 RET LENCO] = .FRAME_LENGTH - .1; 
> 5677 6578 4 RETORN; | 
; 5678 6579 3 END; 
3; 5679 6580 3 
; 5680 6581 3 ' Move the source to the destination 
; 5681 6382 3 
: 5682 6583 3 MOVE FRAME ( 
; 5683 6584 3 .SCB, 
> 5684 6585 $3 SRCESTRCO) PR frame reference 
> 5685 6586 3 CURRENT RB TREO, .DEST OFFSET, .SCBLPSHSL. PAGE _WIDTHJJ, | 
; 5686 6587 3 ref-to frame 
; 5687 6588 - FRAME _WIDTH, oat hy to fill 
; 5688 6589 1); i rows to fill 
: 5689 6590 
3; 5690 6591 ! Clear the source position 
3; 5691 $236 
; 569 659 HOVE _FRAME 
3; 569 6594 
3; 5694 6595 R_STR ing frame reference 
3; 5695 6596 CLR ASTR OOTRLO, - SOURCE_OFFSET, -SCBLBSMEL PAGE _WIDTHIJJ, 
3; 5696 6597 tO frame 
3; 5697 6598 -FRAME_WIDTH, i cals to fill 
; 5698 6599 i); i rows to fill 
; 5699 6600 
; 5700 6601 SRCE_STRCSIZE) = K_MAX_SIZE; 
; 5701 6602 
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vo6-001 MERGE FRAME - Merge Information in this Frame o 14-Sep-19 4 93:93:98 EPRTSMB. SRC ISEPARATE 633-2 
; 570 6603 2 END; 
: 570 6604 17 END: 
007C 00000 MERGE_FRAME : 
.WORD Save R2,R3,R4,R5,R6 
5 FEES CE i 0000 MOVAB =280(SP5, § 
5 08 AC DO 0000 MOVL § CHAR_STRING, RO 
FC AD 04 Ad 00 90008 MOVL 4 (ROT, CLR_STR+4 
56 10 AC 00 0001 MOVL FRAME WIDTA, R6 
FB AD 56 DO 00014 MOVL Re. cCR_S 
56 20 6 ‘ 09 2c 90018 MOVCS #0, (SPT, #32, R6, ACLR_STR+4 
FO AD 0100 8F 3C OO01F MOVZWL #256, SRCE_STR 
F4 AD 08 AE 3 00085 MOVAB BUFFER, SRCE_STR+4 
53 OC AC DO O002A MOVL FRAME PTR, CORRENT_PTR 
52 14 AC 01 C3 atts SUBL3. #1, FRAME_LENGTH, R2 
04 AE 52 00 000 MOVL  R2, SOURCE OFFSET 
se 52 DO 00037 MOVL R2, DEST_OFFSET 
54 04 AC DO 0003A MOVL SCB, R4 
SE DD OOO3E 1$ PUSHL § 
14 AC DD 00040 PUSHL FRAME_LENGTH 
0048 8F BB 00043 PUSHR #*M<R3,R6> 
F8 AD 9F 00047 PUSHAB CLR_STR 
54 DD O004A PUSHL R4 
0000v CF 06 FB 0004C¢ CALLS #6, FIND_DEST_PTR 
04 AE 9F 00051 PUSHAB SOURCE_OFFSET 
04 AE DD 00054 PUSHL OFFSET 
0048 8F BB 00057 PUSHR “M<R3,R6> 
FO AD 9F 00058 PUSHAB SRCE_STR 
54 DD 0005E PUSHL R 
0000v CF 06 FB 00060 CALLS #6, FIND_SOURCE_PTR 
FO AD D5 00065 TSTL  SRCE_STR 
07 if 00068 BNEQ 
18 BC 14 AC 52 A3 0006A SUBW3 I, FRAME_LENGTH, @RET_LEN 
04 00070 RET 
01 DD 00071 2$ PUSHL #1 
56 DD 00073 PUSHL  R6 
50 08 AE 0200 ¢& C5 00075 MULL 512(R4), DEST_OFFSET, RO 
6043 9F 0007C PUSHAB (RO) CCURRENT_PTR) 
FO AD OF 90075 PUSHAB SRCE_STR 
54 DD 00082 PUSHL R4 
FCFF OCF 05 FB 00084 CALLS #5, MOVE_FRAME 
01 DD 90089 PUSHL #1 
56 DD 00088 PUSHL R6 
50 OC AE 0200 C4 C5 0008D MULL 313(R4) SOURCE _OFFSET, RO 
6043 9F 00094 PUSHAB (RO) CCURRENT_PTR) 
F8 AD 9F 00097 PUSHAB CLR_STR 
54 DD OO09A PUSHL R4 
FCE7 CF 5 FB 0009C CALLS #5, MOVE_FRAME 
FO AD 0100 8F 3C QO0A1 MOV2WL #256, SRTE_STR 
; D7 O00A7 DEC I 
93 11 000A9 BRB 1$ 
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; Routine Size: 171 bytes, Routine Base: CODE + 3025 
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; 5705 6605 1 %sbttl "INSERT_NAME_BANNER = Insert User Name as Banner into this Frame’ 
: ere 6606 1 !++ 
: 370 6607 1 ! Functional Description: é 
; 5708 6608 1! This procedure inserts a string into the cneter of an array(frame). 
; 5709 6609 1! Tne workhorse of this routine is the BANNER routine which creates the 
; 5710 6610 1! large letters. Insertion is attempted in the center of the frame. 
: ay rede : } Sorry lee. insertion starts at the left margin until no more characters 
° . WwW i. 
3 3718 ge iB NOTE: Returns the amount of space used in the frame 
>; 5714 6614 1! 
; 5715 6615 1 ! Formal Parameters: 
: afig 6616 1! - Address of the SCB 
3 or 6617 1! CHAR_DESC - Desc String to Insert 
; 5718 6618 1! FRAME_PTR - Address of first byte of Frame 
; 5719 6619 1! FRAME LENGTH - Lengrs of Frame and Lorgest Banner 
; 5720 $969 ss FRAME WIDTH - Width of Frame and Height of Characters 
; ets} 665) : DESIRED_BAN_TYPE - Requested banner type 
3 Ses $058 1! Implicit Inputs: 
3; 5724 6624 1! none 
>; 5725 6625 1! = 
3; 5726 6626 1 ! Implicit Outputs: 
: 5727 6627 1! none 
: 5728 6628 1! 
; 5729 6629 1 ! Returned Value: 
; 5730 6630 1! n 
3; 5731 665) 3; | 
3 dfae 6632 1 ! Side Effects: ; 
: 5733 66335 1! Truncation is possible. 
: 5734 6634 1! 
3; 5735 6635 1 !-- 
: 5736 6636 1 ROUTINE INSERT_NAME_BANNER ( 
3: 5737 6637 1 SCB : REF $BBLOCK 
: 5738 6638 1 CHAR_DESC : REF VECTORCC), 
; 5739 6639 1 FRAME_PTR : REF PAGE_ARRAY, 
; 5740 6640 1 FRAME _WIDTH . ' Number of Columns 
; 5741 6641 1 FRAME LENGTH ° ! Number of Rows | 
: 27eg 6642 1 DESIRED_BAN_TYPE ! Banner size desired 
: 574 664 1 = 
: 5744 6644 2 BEGIN eo 
3 5745 6645 ! Define Literals to use in ‘Banner’ Call 
: 3706 e308 (incl... char_repeat, line_repeat, spacing) 
3; 5748 6648 2 LITERAL K_LARGE_LETTERS = 14 ' Double size chars 
: 5749 6649 2 K"MAX_STRING_SIZE = 42, i max expanded chars(512 buffer) 
3; 5750 6650 § K_ALT_CHAR s &, ' alternate construction char 
: 5751 6651 K-SPATING = 5° ! between character spacing 
: 3726 663¢ K_LEAD_ SPACES = ° ' number of leading spaces 
3 373 665 K-MAX_BuF = 512 ! max for this frame buffer 
>; 5754 6654 LEAD_MASK = %8'60100000', ' convert lower to upper case 
: 5755 6655 TRAICING es i ' flag for discard aoe 
3 3336 $62 ; ! (anything but 0 is trailing) 
; 5758 6658 ! By defining local buffer and descriptor. I can call the banner routine 
; 5759 6659 ! and get the length of the string ... then use an algorithm to center the 
; 270 2569 string into the frame. 
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; 576 666 LOCAL 
; 576 666 NUM_LINES  , 
: 5764 6664 CHAR_REPEAT , ! character repeat 
; 5765 6665 LINE REPEAT , ! Line repeat 
; 5766 666 BUFFER : VECTOR £3}2-byted, ! assume max size 512 bytes 
; 5767 666 STRING _DESC : VECTOR (2), ' descriptor to current string 
: 5768 6668 STR_PTR ; ' temp addr of input str ng 
; 5769 6669 STR_LEN . ' temp length of input string 
; arnt oery RET_LEN : VECTORC1); ! Return Length Used 
H 2r7¢ 667 ! Dont even try if no frame 
; 577 667 : 
3; 5774 6674 IF (.FRAME_LENGTH LSS 7) ! won't ever fit !! 
; 5775 6675 ¢ 
: 5776 6676 (.FRAME_WIDTH LEQ 0) ! nadda... 
; 5777 6677 2 
; 5778 6678 RETURN 0; ! dont even try... no room... 
; 5779 6679 : 
; 5780 6680 STR_LEN = .CHAR_DESCCSIZE); ! move them into registers 
; ore pee? STR_PTR = .CHAR_DESCCADDR); 
: 2785 668 BASSEDIT (CHAR_DESCCOJ, CHAR_DESCCO], UPCASE_MASK); 
; 5784 6684 : _ ! lower to upper case character 
; 5785 6685 ! Insert only the string ... No trailing blanks 
; 5786 6686 ! 
3; 5787 6687 § DISCARD (TRAILING, %C° ', .STR_PTR, .STR_LEN, 
; 5788 6688 STR_LEN, STR_PTR); ! Return Length and pointer 
3; 5789 6689 2 
3; 5790 6690 2! : R : 
: 5791 6691 5 ! init the character spacing ...depends on frame_length passed in ! 
: 5792 669 : assume small chars. 
; 5793 6693 2 CHAR_REPEAT = 1; ! times to repeat a char 
3; 5794 6694 2 LINE_REPEAT = 1; ' times to repeat a Line 
3 5795 6695 2 NUM_CINES = 7; ! Lines equal height of banner 
; 5796 6696 2 ; 
3; 5797 6697 § ! Attempt to give the caller what he wants 
; 5798 6698 ! Only use large banners if they fit in the Frame 
; 5799 6699 § : 
; 5800 6700 IF ¢ 
; 5801 6701 4 (.DESIRED_BAN_TYPE EQL K_LARGE_LETTERS) ! if he wants it 
3 gb0e 6702 3 AR 
; 580 6703 5 ((.FRAME_LENGTH GEQ K_LARGE_LETTERS) ' and... 
; 5804 6704 4 AN ! if there is room !!! 
; 280? 6705 4 ((.FRAME_WIDTH/12) GEQ .STR_LEN)) 
; 5806 6706 3 ) 
; 5807 6707 THEN 
; 5808 6708 BEGIN ; 
; 5809 6709 CHAR_REPEAT = 33 ! times to repeat a char 
; 5810 6710 LINE REPEAT = : ! times to repeat a Line 
; 5811 6711 NUM_CINES = 14; i height of banner 
: a orle ; 
; 581 671 ear 
; apie ort truncate long character names to fit in buffer 
; 5816 6716 IF .STR_LEN GTR K_MAX_STRING_SIZE 
; 5817 671 THE . . 
; 5818 6718 STR_LEN = K_MAX_STRING_SIZE; ! maximum 42 chars in 
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SEPARATE Print Symbiont -- separation routines 1. -Sep-19 3 AX-11 Bliss- 4.0-7 P 193. 
954-001 INSERT NAME _BANNER = Insert User Name as Banner 14-Sep aa ri 95: $3; 33 Hans dna Saeise sebaNaie. b3 32 age 135 
0000v ct 6 FB 00030 CALLS #6, DISCARD : 
4 1 00 00048 MOVL #1, CHAR_REPEAT + 6693 
55 1 DO 0004 MOVL Hl, LINE~REPEAT + 6694 
54 7 DO 00048 MOVL NUM_CINES > 6695 
OE 18 AC D1 00048 CMPL DESINED-BAN: TYPE, #14 : 6701 
1A 12 OO04F BNEG g : 
OE 146 AC 01 00051 CMPL § FRAME_LENGTH, #14 + 6703 
14 19 00055 BLSS 3$ ; 
50 10 AC O¢ C7 00057 DIVL3 #12, FRAME_WIDTH, RO : 6705) 
04 AE 0 b1 0005¢ CMPL RO, STR_LEN : 
09 19 00060 BLSS 3$ : | 
56 08 00 0006¢ MOVL #2, CHAR_REPEAT + 6709. 
55 DO 0006 MOVL #2. LINE-REPEAT + 6710 
54 OE DO 00068 MOVL #14, NUMTLINES > 6711. 
2A 04 AE D1 00068 3$ CMPL  STR_LEN, #42 : 6716. 
04 15 0006F BLEQ 4$ : 
04 AE 2A 20 00071 MOVL #42, STR_LEN : 6718 
08 AE 0200 8F 3C C0075 4$ MOVZWL #512, STRING DESC t 6722. 
0c AE 10 AE 9€ 00078 MOV BUFFER, STRING_DESC+4 : 6723) 
5 04 AC 00 00080 MOVL  SCB, R3& + 6742. 
52 01 CE 00084 MNEGL #1, LINE_NO ; 
41 11 00087 BRB 6S. : | 
08 AE 9F 00089 5$: PUSHAB STRING_DESC + 6738 
52 DD 0008C PUSHL LINE 3 6737) 
14 AE DD O008E PUSHL STRING DESC+4 + 6736 
7E O¢ 7D 00091 MOVQ #2, -(S5P) 3 6728 | 
55 DD 00094 PUSHL LINE_REPEAT t 6733. 
56 DD 00096 PUSHL CHAR REPEAT : 6732 | 
7E D4 00098 CLRL. -=(SP : 6728 | 
20 AE DD OOO9A PUSHL STR_PTR ; 6730 
28 AE DD 0009D PUSHL STR7LEN : 6729 
04 AC DD OOOA0 PUSHL  5SCB ; 6728 
000000006 00 0B FB OO0A3 CALLS #11, PSMS$BANNER : 
01 DD OOOAA PUSHL #1 6742 | 
10 AC DD OOODAC PUSHL FRAME + 6743 
50 52 0200 C3 C5 000A MULL STOR LINE NO, RO > 6742 | 
OC BC40 9F 000B PUSHAB a@FRAME_PTRLRO : 
14 AE 9F 00089 PUSHAB STRING-DESC t 6741 | 
04 AC DD 000BC PUSHL  SCB : 6742 | 
FD63—sCF 05 FB 000B CALLS #5, CENTER FRAME : | 
08 AE 0200 8F 3C 000C4 MOVZ2WL #512, STRING G DESC > 6745 
BB 52 54 F2 OOOCA 6$ AOBLSS NUM_LIN ® LINEN , 5$ : 6725 | 
50 54 DO OOOCE MOVL NUM LINES. : 6748 
04 90001 RET ; 
50 D4 00002 7$: CLRL = RO > 6749 | 
04 00004 RET : 


; Routine Size: 213 bytes, Routine Base: CODE + 30D0 


D 12 
eeraaare Print syebiont “= separation routines 16-Sep-1984 05:93:93 AX-11 Bliss-32 ot gg Page 194 
v04-001 FIND_DEST_PTR = Finds an empty Position in the 14-Sep-1984 22:52:26 PRTSMB.SRCJSEPARATE .B32;2 (49) 
; 5851 6750 1 &sbttl ‘FIND_DEST_PTR = Finds an empty Position in the Frame’ 
; 2826 6751 1 I++ : 
; 385 67 ¢ 1 ! Functional Description: 
>; 5854 6755 1! This routine finds the first empty frame position from the bottom — 
>; 5855 6754 1! of the frame. The returned parameters include the dest_ptr (position 
; 5856 6755 1! found) and the length left in the frame. If unable to Find an empty 
; 5857 6756 1! position then RET_OFFSET = .FRAME_LENGTH 
; 5858 6757 1! 
: 5859 6758 1 ! Formal Parameters: 
; 5860 6759 1! - Address of the SCB ; 
; 5861 6760 1! CLR_ST - Descriptor of blank string 
; 586 6761 1! FRAME _PTR - Address of first byte of Frame 
; 586 2504 1! FRAME _LENGTH - Lengen of Frame and Largest Banner 
>; 5864 67635 1! FRAME WIDTH - Width of Frame and Height of Characters 
; 5865 6764 1! RETURN _PTR - Pointer to position in frame 
; 5866 6765 1! RET_LEN - Resultant Length of frame 
: 5867 6766 1! a 
; 5868 6767 1°! Implicit Inputs: 
; 5869 6768 1! none 
; 5870 6769 1! 
; 5871 6770 1 ! Implicit Outputs: 
; 5872 6771 1! none 
: 5873 6772 1! 
; 5874 6773 1 ! Returned Value: 
; 5875 6774 1! non 
; 5876 6775 1! 
; 5877 6776 1! Side Effects: dy: : 
: 5878 6777 1! Truncation is possible. 
; 5879 6778 1! 
; 5880 6779 1 !-- 
; 5881 6780 1 ROUTINE FIND_DEST_PTR ( 
; 5882 6781 1 $cB : REF $BBLOCK 
; 5883 6782 1 CLR_STR : REF VECTOR(CJ, 
> 5884 6783 1 FRAME_PTR : REF PAGE ARRAY, 
>; 5885 6784 1 FRAME WIDTH ‘ ! Number of Columns 
; 5886 6785 1 FRAME_LENGTH ‘ ' Number of Rows 
; 5887 6786 1 RET_OFFSET : REF VECTOR 
; 5888 6787 1 Se NOVALUE = 
; 5889 6788 2 BEGIN 
; 5890 6789 2 LOCAL 
; 5891 6790 CURR_PTR : 
; 5892 6791 
; 5893 ore ! exit if frame length is zero 
3: 5894 679 ! 
; 5895 6794 IF .FRAME_LENGTH EQL 0 
: 5896 6795 2 
; 5897 6796 2 RETURN; 
3; 5898 6797 2 
; 5899 6798 § DECR I FROM (.FRAME_LENGTH-1) TO 0 
; 5900 6799 dO 
3; 5901 6800 BEGIN 
j3 2308 ett CURR_PTR = FRAME_PTRCO, .1, .SCBCPSM$L_PAGE_WIDTHJ); 
3; 5904 680 IF CHSEQL( .FRAME WIDTH, .CURR_PTR, 
; 5905 6804 i, CHSPTR( UPLIT ('7")); HC" * ) 
; 5906 6805 THEN 
: 5907 6806 4 BEGIN 


es 


Re Be Be Oe Be Be Be Oe Se Oe BH Se Se Se Se Se Se Be Se we SH Se Se Se Se Se Be oe Se Se Be Se Be Se Oe Be Be Se Se Se Se Oe Se Se Oe Se Se Se Se SESH Se Se Oe Be es oe 


opp anare 


: 99 
3; 29 
; 39 
3; 29 
; 59 
3 39 


01 


; Routine Size: 


ERE Baba 


00 00 00 20 ; 


So 
oO 
~ 
oO 


14 AC D5 00002 

2A 13 00005 

55 04 AC 00 00007 

54 14 AC 00 00008 

1A 11 QOOOF 

50 54 0200 C5 C5 00011 
56 50 OC AC C1 00017 
20 66 10 AC 2D Q001C 
D8 =sAF 00022 

05 12 00024 

18 «BC 54 00 00026 

04 0002A 

E3 54 F4& 00028 

18 BC 04 it 

04 00031 


50 bytes, Routine Base: CODE + 31AC 


Print tT eR -- separation routines 1 
FIND_DEST_PTR = Finds an empty Position in the 14-Sep-19 
6807 4 pet “ = 

rete 4 

680 

6810 

6811 

oai§ RET ‘gremettn » 0; 

681 

6814 1 END; 


00000 FIND_DEST_PTR: 
Gord 


1$: 


2$: 
3$: 


' exit this routine 


AX-11 Bliss-32 V 
PRTSMB.SRC SEPARA 


' exit with 0 if destination not found 


3 
I \ \«0><0><0> 


Save R2 R2e me R5,R6 


TSTL © FRAME_LENG 


3$ 
MOVL  $CB, R5 
MOVL § FRAME_LENGTH, I 
BRB 2$ 
MULL3 312 (R5) «| ,_RO 
ADDL3 FRAME_PTR, RO, CURR_PTR 
CMPC5 = FRAME WD TH, (CURR_PTR), 
BNEQ 28 
MOVL I, @RET_OFFSET 
RET 
SOBGEQ I, 1$ 
@RET_OFFSET 


hie .83952 


#32, #1, 


P.AGN 


Page 195 
(49) 
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SEPARATE Print Symbiont == separation routines 16-Sep-1984 95:43:03 AX-11 Bliss-32 viet oas Page 196 
v04-001 FIND_SOURCE_PTR = Finds an empty Position in th 14-Sep-1984 7:52:26 PRTSMB.SRCJSEPARATE .B32;2 (50) 
; 5917 6815 1 Xsbttl "FIND _SOURCE_PTR = Finds an empty Position in the Frame’ 
; 5918 oai8 1 l+4 
; 5919 6817 1 ! Functional Description: ; 
; 5920 6818 1! This routine finds the first nonempty frame position from the bottom 
: 5921 6819 1! of the frame. The returned parameters include the ret_str descriptor 
; 59 ¢ 6820 1! return_ptr (position found) and the length tett in_the frame. If 
; 592 6821 1! unable to find a string position then RET_STRCSIZEJ=0, RET_LEN = 0 and 
; 5924 68 ¢ 13 RETURN_PTR = FRAME_PTR. 
; 5925 68 1! 
; 5926 6824 1 ! Formal Parameters: 
; 5927 6825 1! SC - Address of the SCB ; 
>; 5928 tt) . 3 RET_STR - Descriptor of buffer for return string 
3 236? 6827 1! FRAME _PTR - Address of first byte of Frame 
; 5930 6828 1! FRAME LENGTH ° Length of Frame and Largest Banner 
; 3931 req} iz FRAME WIDTH - Width of Frame and Height of Characters 
; 5932 6830 1! RET_OFFSET - Pointer to position in frame 
; 5933 6831 1! oi 
: 5934 ett) 1! Implicit Inputs: 
; 5935 6835 1! none 
; 5936 6834 1! 
: 5937 6835 1 ! Implicit Outputs: 
; 5938 6836 1! none 
; 5939 6837 1! 
; 5940 6838 1 ! Returned Value: 
3; 5941 6839 1! non 
; ad] 6840 1! 
3 594 6841 1 ! Side Effects: ges} ‘ 
3; 5944 6842 1! Truncation is possible. 
; 5945 6843 1! 
; 5946 6844 1 !-- 
: 5947 6845 1 ROUTINE FIND_SOURCE_PTR ( 
: 5948 6846 1 ScB : REF $BBLOCK 
: 5949 6847 1 RET_STR : REF VECTOR, 
; 5950 6848 1 FRAME _PTR : REF PAGE ARRAY, 
; 5951 6849 1 FRAME WIDTH ° : Number of Columns 
; 5952 6850 1 FRAME LENGTH > ' Number of Rows 
; 5953 6851 1 RET_OFFSET : REF VECTOR 
; 5954 6852 1 : NOVALUE = 
; 5955 6853 2 BEGIN 
; 5956 6854 2 
; 5957 6855 2 LOCAL 
; 5958 6856 2 CURR_PTR; 
; 5959 6857 2 
; 5960 6858 ‘ : 
: 5961 6859 ! exit if frame length is zero 
; 5962 6860 ! 
3; 5963 6861 IF .FRAME_LENGTH EQL 0 
3; 5964 686 THEN 
3; 5965 686 BEGIN 
: 5966 6864 RET_STRCSIZE) = 0; 
: 5967 6865 RETORN; 
: 5968 6866 2 END; 
3; 5969 6867 
; 5970 6868 DECR I] FROM (.FRAME_LENGTH-1) TO 0 
; 5971 686 DO 
3 2378 6870 BEGIN 
3; 597 6871 CURR_PTR = FRAME_PTRCO,.1,.SCBCPSMS$L_PAGE_WiDTHJ]; 


Sm 


+ 
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SEPARATE Print Symbiont == separation routines 1bese -1984 23:03 AX-11 Bliss-32 V4.0-74 p 197 
we 001 FIND. SOURCE. PTR - Fi Ads an empty Position in th 14- Sep-19 4 95:93: 6 PRTSMB.SRCJSEPARATE.B b33;2 39° 50) 
; 5974 ob7¢ 
; 5975 687 IF CHSNEQ( ‘tet pyar sure PTR, 
: 5976 6874 .¢ ( UPLIT ('""))5 act 8 ) 
3; 5977 6875 THEN 
; 5978 one 4 BEGIN 
; 5979 687 4 CHSMOVE (. FRAME ths ~CURR_PTR, 
; 5980 6878 4 ;RET_STRLADDRI); 
; 5981 6879 4 RET STAC Si ted = » FRAME WIDTH; 
; 2on6 6880 4 RET OFFSETCOJ = .I; 
; 598 6881 4 RETORN; ' exit this routine 
> 5984 ery 3 END; 
; 5985 688 END; 
; 5986 6884 
: 5987 6885 RET -STRCSIZE] = 0; 
; 5988 6886 RET_OFFSET = 0; 
; 5989 6887 2 
; 5990 6888 1 END; 
031DE -BLKB) 2 
00 00 00 20 O31E0 P.AGO: .ASCII \ \<0><0><0> : 
O3FC 00000 FIND_SOURCE_PTR: 
. WORD Save R2, Rae Rs, R5,R6,R7,R8,R9 : 6845 
14 AC D5 00002 TSTL FRAME _LENG 3; 6861 
04 12 00005 BNEQ : 
08 BC D4 00007 CLRL @RET_STR 3; 6864 | 
04 OOO0A RET 3; 6863 
58 04 AC DO 0000B 1$: MOVL SCB, R8 ; 6871. 
56 14 AC DO OOO0F MOVL FRAME_LENGTH, I 3; 6873 
28 11 00013 BRB $ 3 
50 56 0200 C8 C5 00015 2$: MULL 512(R8), we ; 6871 
59 50 0c AC C1 0001B ADDL FRAME Ptr. “RO, é 
01 20 69 10 AC 2D 00020 CMPC5S FRAME “WIDTH, (CURRY RR). #32, #1, P.AGO 3; 6873 
D4 se AF 00026 3 
13 13 00028 BEQL 3$ 3 
57 08 AC DO O002A MOVL RET_STR, R7 3; 6878 
04 B87 69 10 AC 28 0002 MOVC3 FRAME_WIDTH, (CURR_PTR), @4(R7) ; 
67 10 AC DO 00034 MOVL FRAME WIDTH, (R7) ; 6879 | 
18 BC 56 DO 00038 MOVL I, @RET_OFFSET : 6880 
04 Bo0 3c RET ; 6876. 
D5 56 F4 0003D 3$: SOBGEQ I, 2$ + 6868 | 
08 BC D4 00040 CLRL  @RET_STR : 6885 | 
18 AC D4 00043 CLRL RET_OFFSET ; 6886 
04 00046 ET ; 6888 


; Routine Size: 71 bytes, Routine Base: CODE + 31&4 
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vO0-001 
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biont -- separation routines 4.02 4 AX-11 Bliss-32 V4.0-74 P 19 S 
TRING = Return the Last position of tn lange 1982 93: $3: 8 PRTSMB.SRC SEPARA TE.B 535;2 age 198 vt 
sbttl *"DELIMIT_STRING = Return the Last ecsition of this delimiter’ 


m 
* 
i Functional Description: 
i This procedure returns the position of the delimiter nearest the 
string_end 

i Formal Parameters: 
STR_PT - Pointer of Strina to delimit 
° smarac tee delimiter 
! 

i 

i 

i 

i 

i 

i 

i 

' 

i 

i 


CHA 
STR_END nd position of string 


Implicit Inputs: 
none 

Implicit Outputs: 
none 


' Returned Value: 
non 


Side Effects: 
i non 


ROUTINE DELIMIT_STRING ( 
STR_PTR 


BASE, 
TEMP_PTR, 
CHAR_PTR; 


TEMP_PTR = .STR_P 

BASE™= .STR_PTR™ ¥ Ret END - 1; 

CHAR _PTR = THSPTR(CHARD; 

eet CURR_PTR FROM (.BASE) TO .STR_PTR DO 
TEMP_PTR = CHSPTR(.CURR_PTR); 
POS = CHSEQL(1, .TEMP_PTR, 1, .CHAR_PTR); 


IF (.POS EQL_ 1) AND 
(.CURR_PTR EQL .STR_PTR) 


RETURN .STR_END; ! ...return the original Length 


IF (.POS EQL 1) AND 
(.CURR_PTR GTR .STR_PTR) 


EN 
RETURN (.CURR_PTR = .STR_PTR + 1); 


IF (.POS EQL 0) AND (.CURR_PTR EQL .STR_PTR) THEN 
RETURN - STR_END; ' handle extra decrem 


! char in string 
---return position plus one 
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SEPARATE Print Syabi iont -- separation routines 14. $ep-1984 02:23:03 AX-11 Bliss-32 V4. pP 99 
ve 001 DELIMIT STRING - Return the Last position of th 1e-sep-19n¢ o3:82:5G — LaATema sae isebakate 649-2 age 195 
: $080 §328 ; RETURN .STR_END he original lL 
; ° ad : : ee-return the original length ; 
: 6051 6948 ° ° 
; 6052 6949 1 END; ; 
003C 00000 DELIMIT_STRING: ; 
-WORD Save R2,R3,R4,R5 1 6912. ; 
52 04 AC D0 99002 MOVL  STR_PTR, RO + 6923 ; 
54 52 D0 00006 MOVL. R2,-TEMP_PTR : : 
50 52 0c AC C1 00009 ADDL3 STR_END,~R2, RO > 6924 : 
50 D7 OO00E DECL BASE : | 3 
55 08 AC 9E 00010 MOVAB CHAR, CHAR_PTR > 6925. ; 
3A 11 00014 BRB 6$ : 6931 ; 
54 50 DO 00016 18: VL CURR_PTR, TEMP_PTR > 6929 ; 
51 D4 00019 CLRL : 6931 ; 
65 64 91 0001B CMPB = (TEMP_PTR), (CHAR_PTR) : ; 
02 12 OO01E BNEQ 2$ : ; 
51 D6 00020 INCL RI : ; 
53 51 DO 00022 28 MOVL 1, POS : : 
51 D4 00025 CLRL RY + 6933 : 
01 53 D1 00027 CMPL «POS, #1 : ; 
07 12 0002A BNEQ 3$ : ; 
51 D6 0002C INCL = R17. : ; 
52 50 1 000¢E CMPL = CURR_PTR, R2 > 6934 : 
22 13 00031 BEQL = 7$ : : 
OF 51 £9 00033 3$ BLBC = R11,_ 48 > 6938. : 
52 50 D1 00036 CMPL  CURR_PTR, R2 ; 6939 | : 
0A 15 00039 BLEQ 4$ : | : 
51 50 52 C3 00038 SUBL3 2, CURR_PTR, R1 > 6941 : 
51 D6 0003F INCL Ri : ; 
50 51 D0 00041 MOVL » RO : | ; 
04 00044 RET ; ; 
53 D5 00045 4$: TSTL POS > 6943 | 
05 12 00047 BNEQ 5$ ; | 
52 50 D1 00049 CMPL  CURR_PTR, R2 : | 
07 13 0004C BEQL «6s 7$ ; 
50 D7 OO04E 5$: DECL § CURR_PTR > 6927 | 
52 50 D1 00050 6$: CMPL  CURRTPTR, R2 : 
C1 18 00053 BGEQ : 
50 0c AC 00 00055 7s: MOVL § STR_END, RO : 6947 
04 00059 RET : 6949 


; Routine Size: 90 bytes, Routine Base: CODE + 322B 


ze 


ymbiont -- separation routines 1b-S00-1984 95:93:93 


IT_STRING_NOT = Return the last position o 14-Sep-19 
sbttl "DELIMIT_STRING_NOT = Return the Last position of not this delimiter’ 


AAAASAASOSASOSAOOS CV 
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J—OODONAUSWN OO 3 


* 


+ 
Functional Description: 


AX-11 Bliss-32 V 
PRTSMB.SRCJSEPAR 


his procedure returns the Length of the string without the delimited 
characters on the string end. Return the original length if 


Formal Parameters: 
STR_PTR - Pointer of 4 FY to delimit 

CHA - Character delimiter 

STR_END - End position of string 


m 
S 

% 

! 

: 

non_delimiters cannot be found. 
} 

} 

i 

' Implicit Inputs: 

none 

i Implicit Outputs: 

: none 

| Returned Value: 

non 


Side Effects: 


ROUTINE DELIMIT_STRING_NOT( 
STR_PTR™, 


none 


CHAR 
STR_END ) = 


BEGIN 
LOCAL 
PTR : REF VECTOR[,byte]; 
IF .STR_END EQL 0 
RETURN 0; 
PTR = .STR_PTR + .STR_END - 1; 
WHILE .PTR GTRU .STR_PTR 
IF .PTRCO] NEQU .CHAR 
EXITLOOP 
PTR = .PTR = 1; 
RETURN .PTR = .STR_PTR + 1; 
END; 


0000 00000 DELIMIT_STRING_NOT: 
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. 


K 12 


SEPARATE Print Symbiont -= separation routines 16-Sep-1984 3 AX-11 Bliss-3 -74 
voe001 DELIMIT. STRING. NOT ~ Return the last position o 12-Sep- 1986 93: $3 3 PRTSMB.SR ROIS EbaKATE. B32;2 
«WORD Save nothin 
0c AC § 90002 iSTL «6 STREND 
yw 000 BEQL 
50 04 Ac oc af ct 0007 ADDL3 STR_END, STR_PTR, RO 
50 Dd? 0000D 1$: DECL PTR 
04 AC 50 D1 OOOOF CMPL PTR, STR_PTR 
08 1B 00013 BLEQU 
08 Ac 60 08 00 Fe 89812 CMPZV = #0, #8, (PTR), CHAR 
FO 13 00018 BEQL 1 
50 04 AC C2 0001D 2s: SUBL2 STR_PTR, RO 
50 D6 00021 INCL RO 
04 B38 3 RET 
50 D4 00024 3$: CLRL RO 
04 00026 RET 
; Routine Size: 39 bytes, Routine Base: CODE + 3285 


Page 
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SEPARATE Print Symbiont == separation routines 18-Se $1984 02:23:03 AX-11 Bliss-32 V4.0-74 Page 202 
v04-001 DISCARD’ = Returns a Pointer to First Char NOT D 14-Sep-19 4 93:93:98 PRTSMB.SRC SEPARATE 039: 2 835 
; 6106 7001 1 Xsbttl "DISCARD = Returns a Pointer to First Char NOT Discarded’ : 
; 6107 Poo8 1 !+¢ ; ; 
; 6108 7003 1 ! Functional Description: 3 
; 6109 7004 1! This routine discards the character in the string from the beginning : 
; 6110 7005 1! (LEADING) or end(TRAILING) of the string(STR_PTR) and returns a pointer ; 
; 6111 7006 1! to the first position that is found not to contain the discard : : 
; ait¢ 7007 1! character(CHAR). The boundaries of the string are the beginning pointer : 
; 611 7008 1! and the string length(LEN). : 
: 6114 7009 1! F 
> 6115 7010 1 ! Formal Parameters: ‘ ; 
; 6116 7011 «1:! WHICH_WAY - Leading/Trailing : 
3; 6117 pelg 1! CHA - Character to discard : 
; 6118 7015 1! STR_PTR - Pointer of String to delimit ; 
3 6119 7014 1! LEN - Length of lhe : H 
; 6120 7015 1! RET_PTR - Return pointer to first undiscarded position : 
; 6121 7016 1! 3 
3; 6122 7017 1°! Implicit Inputs: : 
3; 6123 7018 1! non : 
3 6124 7019 1! . : 
3 6125 7020 1 ! Implicit Outputs: : 
; 6126 7021 1! none 3 
: 6127 7022 1! 3 
; 6128 70235 1 ! Returned Value: 3 
3; 6129 7024 1! none : 
; 6130 ras 2 PF 
3; 6131 7026 1°! Side Effects: ; 
3 6132 70e7 1! non : 
3; 6133 7028 1 !-- : 
3: 6134 7029 1 ROUTINE DISCARD ( : 
: 6135 7030 1 WHICH_WAY, : 
3; 6136 7031 1 . : 
3; 6137 ress 1 STR_PTR , . : 
; 6138 7033 (1 LE : WORD, ! force word size ; 
3; 6159 7034 1 RET_LEN : REF VECTOR ; 
; 6140 7035 1 RET-PTR : REF VECTORS : NOVALUE = ; 
>; 6141 7036 2 BEGIN 3 
3: 6142 7037 2 : 
3 6143 7038 2 LITERAL ; 
3 6144 7039 2 LEADING = 0; : 
3: 6145 7040 2 ; 
3 6146 7041 2 LOCAL : 
3: 6147 7042 2 DSTR_DESC : VECTOR(2); 3 
3; 6148 704 , 3 
3 6149 704 !a Goscriptor is needed for BASSEDIT routine : 
3; 6150 7045 pe Tn De oth IZE] = .LEN; 3 
3 6151 7046 2 DSTRIDESCCADDR] = .STR_PTR; 3 
; oln¢ 7047 3 
: 615 7048 IF .WHICH_WAY EQL LEADING THEN : 
> 6154 7049 BEGIN , P : 
3; 6155 7050 BASSEDIT ( DSTR_DESCCO), DSTR_DESCCOJ, LEAD_MASK); ! trim leading blanks $ 
3; 6156 7051 RET _PretO} = .DSTR_DESC bE ; 
3 6157 P36 RET_LENCO) = .DSTR_DESCCSIZEJ; : 
3; 6158 705 END : oe 3 
3: 6159 7054 ELSE ! trim trailing blanks 
; 6160 7055 BEGIN 
3; 6161 7056 RET Lento} = DELIMIT_STRING_NOT ( .STR_PTR, .CHAR, .LEN); 
3; 6162 7057 RET-PTR(O) = .STR_PTR; 
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sha -001 DISCARD = Returns a Pointer to First Char NOT D 14S ne 1984 98: $3: g PRTSMB.SRCJSEPARATE.B 633;2 . 833 
: 6163 7058 ¢ END; 
>; 6164 7059 END; 
0000 44 DISCARD: .WORD Save nothing 3; 7029. 
5E 04 ge BORE SUBL2 SP : 
7E 10 AC 3C 0000 MOVZWL LEN, DSTR_DESC 3 7045 | 
04 AE OC aC 00 00009 MOVL STR_PTR, BSTR_DESC+4 3 7046. 
04 AC 3 BRO TSTL WHICH 3; 7048) 
19 1 0011 BNEQ : 
08 DD 00013 PUSHL #8 3; 7050° 
04 AE 9F 00015 PUSHAB DSTR_DESC ; 
08 Ag 9F 00018 PUSHAB DSTR_DESC : 
. 00000000G 00 03 FB 0001B CALLS #3, BASSEDIT 3 
18 BC 04 AE 00 000z¢ MOVL DSTR_DESC#4, @RET PTR : 7051 | 
14 BC 6E 00 000 MOVL § DSTRIDESC, @RET_LEN > 7052 | 
ee 00028 RET : 7048 | 
7E 10 ac 3C Ont EE 1$: MOVZWL LEN, =(SP) 3 7056) 
08 AC DD 00030 PUSHL GHA : 
0c AC DD 00033 PUSHL STR_P 3 
OF so AF 03 FB 00036 CALLS as, “DELIMIT STRING_NOT : 
14 BC 50 DO OO03A MOVL RO, 3 
18 BC Oc AC bO 00056 MOVL STR_PTR, @RET_PTR 3 7057 
04 0004 RET 3; 7059 


; Routine Size: 68 bytes, Routine Base: CODE + 32AC 
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vo4-001 FILE_OPEN f i p= 1984 99:83:56 Rie .639;2 eat 5) 
7060 


0 - Boolean Valued routine indicating f 14-Sep-1984 PRTSMB.SRCJSEPARATE.B 


Routine Size: 13 bytes, Routine Base: CODE + 32F0 
| 
| 


: 6166 1 Zsbttl "FILE_OPEN = Boolean Valued routine indicating file open status’ $ 
; 6167 7061 1 !44 : : 
: 6168 7062 1 ! Functional Description: : : 
3; 6169 7065 1! This routine sneer cogeces the FAB and determines if the current file F 
; 6170 7064 1! is open and/or if information can be extracted from the file. ; 
3; 6171 7065 1! TRUE = 1, FALSE = 0; ; 
; ois 7066 1! 3 
3; 617 7067 1°! Formal Parameters: 3 
3; 6174 7068 1! none 3 
3; 6175 7069 1! , 3 
3; 6176 7070 1°! Implicit Inputs: F 
; 6177 7071 1! none : 
; 6178 7072 1! 3 
3 6179 7075 1! Implicit Outputs: ; 
; 6180 7074 1! none $ 
3; 6181 7075 1! 3 
; oi 8s 7076 1 ! Returned Value: 3 
; 618 7077 1! non $ 
3 6184 7078 1! 3 
3; 6185 7079 1°! Side Effects: : 
: 6186 7080 1! non ; 
3; 6187 7081 1 !-- : 
3; 6188 7082 1 ROUTINE FILE_OPEN ( 3 
3; 6189 7083 1 scB : REF S$BBLOCK ' $cB F 
: 6190 7084 1 = ; 
3; 6191 7085 2 BEGIN 3 
3; 6192 7086 2 3 
3 6193 7087 2 RETURN .SCBCPSM$V_FAB_VALID] 3 
3 6194 7088 2 3 
3: 6195 7089 1 END; : 
0000 00000 FILE_OPEN: | : 

-WORD Save nothing ; 7082 3 

50 04 AC 00 00002 MOVL CB, R ; 7087 3 

50 10 AO 01 04 EF 00006 EXTZV #4, #1, 16(RO), RO 3 3 

04 0000C¢ RET ; 7089 : 
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Fitee OPEN = Boolean Valued routine indicating f 14-Sep-19 PRTSMB.S if783 2 
i 6198 7091 0 ELUDON 
: PSECT SUMMARY 
: Name Bytes Attributes 
; DATA 4 NOVEC, WRT, RD ,NOEXE,NOSHR, LCL, REL, CON,NOPIC,ALIGN(2) 
; CODE 13053 NOVEC,NOWRT, RD, EXE,NOSHR, LCL, REL, CON,NOPIC,ALIGN(2) 
; Library Statistics 
Fe ra a, asia rhe ite © Rite Ae we en Syahol§ sstocnce Pages Processing 
: File Total Loaded Percent Mapped Time 
; _$255$DUA28:CSYSLIBILIB.L32;1 18619 88 0 1000 00:01.9 
; COMMAND QUALIFIERS 
; BLISS/CHECK=(FIELD, INITIAL,OP?IMIZE)/LIS=LIS$:SEPARATE/OBJ=OBJ$:SEPARATE MSRC$:SEPARATE/UPDATE=(ENH$: SEPARATE) 
; Size: 10301 code + 2756 data bytes 


; Run Time: 25. 
; Elapsed Time: 06:52.7 
3 Lines/CPU Min: 2094 

> Lexemes/CPU-Min: 22941 

3 gunery Used: 682 pages 
3 a 


; Compilation Complete 
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